home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / HENSA / DATABASE / EDS.ARC / !EDS_!RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1997-09-25  |  182.0 KB  |  8,554 lines

  1.  EDSS version 1.01 
  2.  (C) 1997 Tom Humphrey, refere to online documentation for licence conditions
  3. &606C0:
  4. &400C0,310,&4B534154,Uy$,O
  5. xr%,qi%:
  6. &400DA:
  7. p_(Uy$+
  8. A("IEr")+" "+
  9. $+" @"+
  10. :Al%=
  11. &406C1:
  12. 6,&81,0,&FF
  13. ,JJ%:
  14. JJ%>=&A5
  15.     JJ%=
  16. Uu:Ky$="":NO%=0:
  17. er%&FF:J$="":Qy$="":Uy$=
  18. A("App"):my$=
  19. A("InD"):Hy$=
  20. A("ApS"):By=6193:I=1<<30:q=(1<<30)+(1<<&C):V_=(1<<30)+(1<<&C):P=0+I:JJ=16+I:fy=32+I:NJ=48+I:PJ=64+I:VJ=80+I:I_=96+I:K_=&70+I:SJ=&80+I:G_=&90+I:m_=&A0+I:AJ=&B0+I
  21. p_=&C0+I:F_=&D0+I:BJ=&E0+I:f_=&F0+I:o_=16+q:M_=32+q:R_=48+q:L_=64+q:t_=80+q:u_=96+q:C_=&70+q:z_=&80+q:i_=&90+q:B_=&90+q:g_=&A0+q:ky=&B0+q:H_=&C0+q:ny=&D0+q:uy=&E0+q:h_=&F0+q:X_=272+q:jy=684+(31*44)
  22. o`%&FF,m`%&FF:$o`%="KTARN;Pptr_write;F0d;A"+
  23. A("RealValidation"):$m`%="KTARN;Pptr_write;F0d;A"+
  24. A("IntegerValidation"):
  25. O 80:O!0=1:O!4=2:O!8=3:O!&C=4:O!16=5:O!20=6:O!24=7:O!28=8:O!32=&A:O!36=&E
  26. O!40=&502:O!44=&400C0:O!48=&400C1:O!52=&400CC:O!56=&80144:O!60=&80145:O!64=&80147:O!68=&47700:O!72=&400C9:O!76=0:
  27. Z%256:
  28. va%&FF:
  29. 4:va%!I%=0:
  30. J%44:
  31. L%40:
  32. v%260:
  33. qr%4:qr%!0=0:
  34. Yy%20:
  35. HO%8:
  36. nZ%20:
  37. Ir%&FF:
  38. l_%&82:
  39. k_%64:
  40. ji%64:
  41. Ka%&FF:
  42. wo%&FF
  43. aB%32:
  44. _Z%32:
  45. PZ%32:
  46. mr%16:
  47. or%16:
  48. cr%16:
  49. AZ%16:
  50. SZ%16:
  51. l`%256:
  52. HZ%16:
  53. DB%40:
  54. ge%40:
  55. zr%16,pr%16,be%16:
  56. wi%16,Q`%16:
  57. p ("<DataBase$Dir>.Code"):
  58. Hr%256,sB%256:
  59. ("Load <DataBase$Dir>.Code "+
  60. ~(no%)):
  61. p ("<DataBase$Dir>.MoveCode")
  62. ("Load <DataBase$Dir>.MoveCode "+
  63. ~(Sk%)):@%="+g10.9":Ry%=
  64. :_a%=
  65. :lO%=
  66. :ly%=Ry%:sl%=-1:vy%=-1:xJ%=-1:ul%=-1:`l%=-1:P%=0:x%=0:R%=0:iJ%=0:i%=&FFFFFFF:Zy%=-1:vn%=-1:t%=0:Gu%=
  67. :n_%=
  68. :Wu%=
  69. :K`%=-1:By%=-1:s_%=-1:ny%=-1:Py=0:Xy=-1:Ui%=0:Fa%=-1:Y`%=-1
  70. SB%=-1:
  71. C%(1,2):
  72. G%(1,2):
  73. Z%(&F):
  74. J%(&F):
  75. F%(&F):
  76. F$(&F):yy$=
  77. (27)+
  78. (&81):Iy$=
  79. (27)+
  80. (&80):lB%=-1:jB%=-1:sO%=-1:an%=-1:sJ%=-2:gB%=-1:d$="File_0AB":eJ%=&AB:wl%=-1:Vu%=&C80:UJ%=800:Li%=
  81. :Bl%=
  82. :rJ%=0:au%=0:Ja%=-1:T_%=0:`n%=&FF
  83. P$(&D),W$(&D),D%(&D),B%(&B),P%(&B),W%(&B):u`%=
  84. :W$()=" STARTS "," ENDS ","="," AND ",","," OR ",";",">","<"," NOT "," HAS ","""","'"," EQUALS ":P$()="STARTS ","ENDS ","=","AND ",",","OR ",";",">","<","NOT ","HAS ","""","'","EQUALS "
  85. D%()=0,1,2,3,3,5,5,6,7,8,9,&A,&B,2:B%(0)=32+16:B%(1)=32+16:B%(2)=32+4:B%(3)=0:B%(4)=0:B%(5)=0:B%(6)=32+8:B%(7)=32+2:B%(8)=1:B%(9)=32+16:B%(&A)=0:B%(&B)=0:W%(0)=
  86. 32:W%(1)=
  87. 32:W%(2)=
  88. 16:W%(3)=0:W%(4)=0
  89. W%(5)=0:W%(6)=
  90. 16:W%(7)=
  91. 16:W%(8)=
  92. 0:W%(9)=
  93. (32+8+2):W%(&A)=
  94. 64:W%(&B)=
  95. 64:P%(0)=8+32:P%(1)=2+32:P%(2)=4+16:P%(3)=0:P%(4)=0:P%(5)=0:P%(6)=8+16:P%(7)=2+16:P%(8)=1:P%(9)=8+2+32:P%(&A)=64:P%(&B)=64:Fi%=&400C7:An%=0:b_%=0:Qu%=0:h_%=0:Oy=37
  96. C$(Oy),A%(Oy):
  97. C$(I%):
  98.  GraphTools,GraphDBox,Axis,Styles,Lables,1stFlnt,AxisSetup,Entries,Stat_Num,Stat_Bool,Stat_String,Graph,PrintText,MainOptions,progInfo,PrintGraph,RecordTools,Error
  99.  SaveAs,Preferences,PrintText,TxtFldDBox,QBE,Valid,FreqMain,FreqPain,Subset_pain,Search,Finds,PieBarAxis,FieldRange,QuickAddFld,2ndFlnt,GraphView,Key,KeyPain,SwtFldDBox,NumFldDBox
  100. M=&C:M=20:Gy=1<<22:W_=7<<24:x_=0<<28:i=&64:ay=&65:v_=7:Y_=8:t=&E:Uy=5:Qy=6:Dy=2:Ly=&A:cy=9:k=0:w_=&64:Fy=3:x=7:Yy=x+64:qy=x+64:f=&F:Cy=2:m=3:a=6:z=7:h=&A:X=9:by=7:hy=5:H=&B:Q=8:G=6
  101. Nxy=Q+64:dy=G+&80:GJ=G+64:ey=G+&80:L=16:ty=&E:gy=4:R=3:Y=2:zy=1:Ky=&F:
  102. du:uO%=&400D9:uO%=&400D9:sy=1<<17:
  103. Fi%,By,Z%,An%
  104. 17,18,19:
  105. a_(Qe%)
  106. eJ%:Cy%=&FA*R%:Cy%+=wy%*x%:
  107. Cy%+=R%*2*x%
  108. Cy%+=16*H_%
  109. Cy%=&400
  110. :=Cy%
  111. t(wy,Uy%,h%,mk%)
  112. F$,My$,ql%:My$=
  113. 0:F$=
  114. (28)+
  115. My$,((mk%+4)
  116. 3))-(mk%+1)):ql%=wy*(1<<16):F$+=
  117. (ql%)+
  118. (ql%>>8)+
  119. (ql%>>16)+
  120. (ql%>>24):F$+=My$+My$:F$+=
  121. (ql%)+
  122. (ql%>>8)+
  123. (ql%>>16)+
  124. (ql%>>24):F$+=
  125. (Uy%)+
  126. (Uy%>>8)+
  127. (Uy%>>16)+
  128. (Uy%>>24)
  129. -.F$+=
  130. (h%)+
  131. (h%>>8)+
  132. (h%>>16)+
  133. (h%>>24):=F$
  134. F_(c$)
  135. c$,"."):c$=
  136. c$,".")+1):
  137. &400CF,,Z%:
  138. Z%!&C<>Y`%
  139. &42401:Z%!20=Z%!&C:Z%!24=Z%!16:Z%!28=Z%!0:Z%!32=Z%!4:Z%!36=
  140. a_(wl%):Z%!0=64:Z%!&C=0:Z%!16=1:Z%!40=wl%:$(Z%+44)=
  141. Z(A%(k`%),1))+
  142. &400E7,17,Z%,Z%!20,Z%!24:gB%=Z%!8
  143. v_(k`%,U$)
  144. &FFF:
  145. hl(U$)
  146. _a(U$)
  147. &AFF:
  148. ju(U$)
  149. &DFE:
  150. ul(U$)
  151. Ua(U$)
  152. &400D4,,-1:
  153. J(A%(k`%)):
  154. cB%,By$:By$="<DataBase$Dir>"+".Sprites":cB%=
  155. p(By$)+20:
  156. j_%cB%:!j_%=cB%:
  157. 46,266,j_%,By$:
  158. 46,296,j_%,"Tile"
  159. ,,,vl%,hJ%:vl%=vl%*OB%:hJ%=hJ%*_B%:d`%=
  160. cy(j_%,"Tile"):
  161. &400ED,512,j_%,d`%,,,,wi%,Q`%:vl%=(vl%*(wi%!0))/(wi%!8):hJ%=(hJ%*(wi%!4))/(wi%!&C):
  162. p(By$)
  163. X%,E%:X%=
  164. (By$):E%=
  165. #X%:=E%
  166. cy(j_%,jy$)
  167. 46,280,j_%,jy$
  168. ,,pe%:=pe%
  169. U(My%)
  170. ul%=-1
  171. A("DSC"),My%,ul%)
  172. Uo%,Ao%,Py%:
  173. 92,ul%
  174. Py%,Ao%:
  175. 42,ul%,My%-Ao%
  176. ,Uo%:
  177. Uo%<My%-Ao%
  178. A("IDC")
  179. :=Py%
  180. uu%,Mi%:
  181. &400EC,-1,-1
  182. (Ry%-&8000)+My%>uu%
  183. &400EC,(Ry%-&8000)+My%,-1
  184. (Ry%-&8000)+My%>Mi%
  185. A("IES")
  186. :=Ry%
  187. w_(ul%)
  188. &400EC,Ry%-&8000,-1
  189. Ui(My%)
  190. uu%,_n%:
  191. 92,`l%
  192. _n%,uu%:
  193. 42,`l%,-(uu%-(Ry%-My%-_n%))
  194. uu%,Mi%:
  195. &400EC,-1,-1
  196. &400EC,(Ry%-&8000)-My%,-1
  197. Mi%:_a%=Mi%+&8000-1
  198. K(My%)
  199. uu%,ck%:
  200. 92,`l%
  201. _n%,uu%:
  202. Ry%-_n%+My%<=uu%
  203. 42,`l%,My%-(uu%-(Ry%-_n%))
  204. ,ck%:=ck%<>0
  205. uu%,Mi%:
  206. &400EC,-1,-1
  207. (Ry%-&8000)+My%<uu%
  208. &400EC,(Ry%-&8000)+My%,-1
  209. Mi%:_a%=Mi%+&8000:
  210. Ry%+My%<=_a%
  211. _a%-=1:=
  212. py(c$,My%,
  213. A_%,Py%:
  214. &66,0,-1,My%,-1,&80,-1,0,0,c$
  215. ,CO%,,Py%;A_%:
  216. A("IDC")
  217. :=Py%
  218. ul%<>-1
  219. w_(ul%)
  220. `l%<>-1
  221. w_(`l%)
  222. &20066,1,CO%:CO%=-1:
  223. Iy:Ry%=-1
  224. &400EC,lO%-&8000,-1
  225. Mi%:_a%=Mi%+&8000-1:Ry%=lO%
  226. :zy%=-1:ly%=-1:Y_%=-1:vy%=-1:sl%=-1:fJ%=-1:xJ%=-1:
  227. Hy%,Bk%,q`%,ie%,vZ%:
  228. uO%,,"<DataBase$Dir>"+".Templates":
  229. (C$(),1):
  230. &400DB,,0,,,,C$(I%),0
  231. ,Bk%,AO%,,,,Hy%:
  232. Hy%=0
  233. 1,"Template: "+C$(I%)+" not found."
  234. U(Bk%):
  235. ie%AO%:
  236. &400DB,,q`%,ie%,ie%+AO%,va%,C$(I%),0:q`%!64=j_%:
  237. &400C1,,q`%
  238. A%(I%)
  239. &400DA:
  240. Ku(A%(&B)):
  241. Ku(Ie%)
  242. p%:F%()=0:Z%!0=Ie%:
  243. &400CC,,Z%:J%(0)=Ie%:
  244. Z%! (72+4)64:
  245. &400C1,,Z%+4
  246. J%(p%):
  247. m(Wa%)
  248. J%(p%)<>Wa%
  249. p%<=&E:p%+=1:
  250. J%(p%)=Wa%
  251. A(A%(&E),1,Hy$):
  252. A(A%(&E),2,my$):
  253. A(A%(&E),3,"
  254.  1997 T. Humphrey"):
  255. A(A%(&E),4,"1.01 (22nd September 1997)"):
  256. wu:J%!0=-1:J%!4=0:J%!8=0:J%!&C=68:J%!16=68:J%!20=&301A:$(J%+24)=Hy$:
  257. &400C2,0,J%
  258. p_(e$)$(v%+4)=e$+
  259. (0):!v%=
  260. &400DF,v%,1,Hy$:
  261. qi%<>0
  262. &400DD,qi%,&4B534154
  263. &406C2:e$=
  264. Al%=20
  265. Al%=P:e$+=
  266. A("NEr")
  267. rJ%=1
  268. p_(Uy$+" has suffered an internal error: Nested Error, "+
  269. $+" @"+
  270. #Li%:Li%=
  271. :e$+=
  272. A("LoC"):Al%=Al%
  273. V_)=0
  274. 7:rJ%=1:
  275. A(A%(17),3,
  276. A("IEF")):e$+=" @"+
  277. A("UnQ")
  278. D(A%(17),dJ%,i,(&474*(2/3))-((
  279. A("Con"))*8)+18),-388,(&474*(2/3))+((
  280. A("Con"))*8)+18),(-388)+(4*17),DB%,
  281. A("Con")):
  282. D(A%(17),nJ%,ay,(&474/3)-((
  283. A("Qit"))*8)+&A),-388,(&474/3)+((
  284. A("Qit"))*8)+&A),(-380)+(4*&D),ge%,
  285. A("Qit"))
  286. Oy(A%(17),0,"Fault")
  287. 65536)=65536
  288. A(A%(17),3,
  289. A("FiE")):rJ%=3:
  290. D(A%(17),dJ%,i,(&474/2)-((
  291. A("OK"))*8)+18),-399,(&474/2)+((
  292. A("OK"))*8)+18),(-388)+52,DB%,
  293. A("OK")):
  294. Oy(A%(17),0,"Error")
  295. V_)=q
  296. rJ%=2+(Al%
  297. &FF0):
  298. A(A%(17),3,
  299. A("War")):
  300. D(A%(17),dJ%,i,(&474*(2/3))-((
  301. (L$)*8)+18),-388,(&474*(2/3))+((
  302. (L$)*8)+18),(-388)+(4*17),DB%,L$):
  303. D(A%(17),nJ%,ay,(&474/3)-((
  304. (H$)*8)+&A),-388,(&474/3)+((
  305. (H$)*8)+&A),(-380)+(4*&D),ge%,H$)
  306. Oy(A%(17),0,"Warning")
  307. A(A%(17),3,
  308. A("ErF")):rJ%=3+(Al%
  309. &F0):
  310. D(A%(17),dJ%,i,(&474/2)-((
  311. A("OK"))*8)+18),-399,(&474/2)+((
  312. A("OK"))*8)+18),(-388)+52,DB%,
  313. A("OK")):
  314. Oy(A%(17),0,"Error")
  315. A(A%(17),4,
  316. g(e$,43)):
  317. A(A%(17),6,
  318. g(e$,43)):
  319. A(A%(17),5,
  320. g(e$,43)):
  321. A(A%(17),7,
  322. g(e$,43)):
  323. &400D2,-1,-1:
  324. F$,Cy%)
  325. Q%,Ta%,xy$:Q%=1:Ta%=1:
  326. Q%<=Cy%:
  327. F$,Q%,1)=" "
  328. Ta%=Q%-1
  329. :Q%+=1:
  330. Ta%=1
  331. F$,Q%):F$=
  332. F$,Q%+1)
  333. F$,Ta%):F$=
  334. F$,Ta%+2)
  335. :=xy$
  336. s_(A%(17)):L%!0=A%(17):
  337. &400E0,,L%:
  338. L%!4,L%!8,(L%!&C-L%!4)-2,(L%!16-L%!8)-4:
  339. s_(ay%)
  340. Qy%,eu%:L%!0=ay%:
  341. &400CB,,L%:Qy%=(L%!&C)-(L%!4):eu%=(L%!16)-(L%!8):L%!4=(Ou%/2)-(Qy%/2):L%!&C=(Ou%/2)+(Qy%/2):L%!8=(ru%/2)-(eu%/2):L%!16=(ru%/2)+(eu%/2):L%!28=-1:
  342. &400C5,,L%:
  343. Jk%,rk%:
  344. 53,-1,4
  345. ,,Jk%:
  346. 53,-1,5
  347. ,,rk%:OB%=2^Jk%:_B%=2^rk%:
  348. 53,-1,&B
  349. ,,Ou%:
  350. 53,-1,&C
  351. ,,ru%:Ou%=Ou%*OB%:ru%=ru%*_B%:
  352. Z%!&C
  353. A%(7):
  354. A%(22):
  355. A%(0):
  356. A%(M):
  357. A%(&D):
  358. A%(21):
  359. A%(&F):
  360. A%(16):
  361. A%(31):
  362. A%(17):
  363. (Z%!16)=i
  364. (Z%!16)=ay
  365. A%(19):
  366. A%(23):
  367. A%(18):
  368. Da(18,_$,AJ%)
  369. A%(25):
  370. A%(26):
  371. A%(27):
  372. A%(28):
  373. A%(1):
  374. A%(2):
  375. A%(29):
  376. A%(34):
  377. A%(35):
  378. A%(4):
  379. A%(5):
  380. A%(32):
  381. A%(6):
  382. A%(33):
  383. u%:u%=
  384. m(Z%!&C):
  385. u%<>-1
  386. el(u%)
  387. wZ%,t`%,Oi%,py%,Zi%:
  388. A%(7):Oi%=(Z%!&C)-(Z%!4):
  389. N(A%(&D),Z%!4+On%,Z%!8+on%,Z%!28):
  390. N(A%(16),Z%!4+L`%,Z%!16+_`%,A%(&D)):Z%!28=A%(16):
  391. &400C5,,Z%:
  392. N(A%(30),Z%!4,(Z%!16)+42,A%(7))
  393. Oi%<>UJ%
  394. Oi%>UJ%
  395. t`%=UJ%-22
  396. t`%=Oi%-22
  397. :UJ%=Oi%:
  398. LZ%!0=A%(7):Z%!4=t`%:Z%!8=-&FFFFFF:Z%!&C=Oi%:Z%!16=0:
  399. &400C9,,Z%
  400. &400D1,A%(7),t`%,-&FFFFFF,Oi%,0
  401. Zy%<>-1
  402. &400D3,,J%:Zi%=J%!20:
  403. &400D2,A%(7),Zy%,,,-1,Zi%
  404. A%(22):
  405. N(A%(26),(Z%!4)+16,(Z%!8)+&64,Z%!28):Z%!28=A%(26):
  406. &400C5,,Z%
  407. A%(34):
  408. N(A%(35),(Z%!4)+8,(Z%!8)+&96,Z%!28):Z%!28=A%(35):
  409. &400C5,,Z%
  410. N(A%(1),Z%!4+Un%,(Z%!8)+Dn%-Pn%,Z%!28):
  411. N(A%(0),Z%!4+Yn%,(Z%!16)+wn%,A%(1)):Z%!28=A%(0):
  412. &400C5,,Z%
  413. A%(24):
  414. N(A%(25),Z%!4,Z%!16-Ri%,Z%!28):Z%!28=A%(25):
  415. &400C5,,Z%
  416. A%(&D):
  417. &400C5,,Z%:L%!0=A%(7):
  418. &400CB,,L%:On%=Z%!4-L%!4:on%=Z%!8-L%!8:L%!0=A%(16):
  419. &400CB,,L%:
  420. L%!28<>A%(&D)
  421. N(A%(16),L%!4,L%!8,A%(&D)):L%!0=A%(7):
  422. &400CB,,L%:
  423. N(A%(7),L%!4,L%!8,A%(16))
  424. A%(16):L%!0=A%(&D):
  425. &400CB,,L%:
  426. N(A%(&D),L%!4,L%!8,Z%!28):Z%!28=A%(&D):
  427. &400C5,,Z%:L%!0=A%(7):
  428. &400CB,,L%:L`%=Z%!4-L%!4:_`%=Z%!8-L%!16:
  429. N(A%(7),L%!4,L%!8,A%(16))
  430. A%(0):
  431. &400C5,,Z%:L%!0=A%(&B):
  432. &400CB,,L%:Yn%=Z%!4-L%!4:wn%=Z%!8-L%!16
  433. A%(1):
  434. &400C5,,Z%:L%!0=A%(&B):
  435. &400CB,,L%:Un%=Z%!4-L%!4:Dn%=Z%!16-L%!8
  436. &400C5,,Z%
  437. K`%<>-1
  438. Jy%=0
  439. C(A%(26),Jy%):
  440. ai%,Xy%,M%,Jy%,hi%,Sa%:ai%=R%*(60):
  441. ai%<292
  442. ai%=292
  443. _(A%(26),-ai%):Xy%=0:
  444. B(vy%+(H_%*Ll%)+&E+(R%*2),vy%+(H_%*16),&80*R%):hi%=vy%+(H_%*16):Sa%=vy%+(H_%*Ll%):
  445. A(A%(22),18,$Sa%):
  446. R%-1:
  447. D(A%(26),LJ%,Jy%,4,Xy%-8-52,&C0+4,Xy%-8,LJ%+24,$((S%!(M%*4))+8))
  448. j(A%(26),`_%,Jy%,&FA,Xy%-8-52,298,Xy%-8,hi%+(R%*&80)+(M%*3),
  449. (?(Sa%+&D+(M%*2))),m`%):Ai%!8=Xy%-60:Ai%!16=Xy%-16:
  450. &400C2,,Ai%
  451. Z(A%(26),Jy%,?(Sa%+&E+(R%*&82)+(M%
  452. (1<<(M%
  453. 8))):Il%!8=Xy%-60:Il%!16=Xy%-8:
  454. &400C2,,Il%
  455. Z(A%(26),Jy%,(?(Sa%+&E+(M%*2))=0)):xl%!8=Xy%-60:xl%!16=Xy%-8:
  456. &400C2,,xl%
  457. Z(A%(26),Jy%,(?(Sa%+&E+(M%*2))=1)):
  458. j(A%(26),`_%,Jy%,366,Xy%-8-52,926,Xy%-8,hi%+(M%*&80),$(hi%+(M%*&80)),kn%):Xy%-=60:
  459. :K`%=Jy%:
  460. &400D1,A%(26),0,-&FFFFFF,&FFFFFF,0:
  461. Ul%,NB%,ol%,Qe%:L%!0=A%(25):
  462. &400CB,,L%:Ri%=(L%!16)-(L%!8):L%!0=A%(21):
  463. &400CB,,L%:fn%=(L%!16)-(L%!8):KZ%=(L%!&C)-(L%!4):L%!0=A%(16):
  464. &400CB,,L%:Ul%=(L%!&C)-(L%!4):NB%=(L%!16)-(L%!8):L%!0=A%(&D):
  465. &400CB,,L%:ol%=(L%!16)-(L%!8)+42:L%!0=A%(7)
  466. &400CB,,L%:On%=0:on%=-ol%:L`%=-(Ul%+1):_`%=-NB%:L%!0=A%(0):
  467. &400CB,,L%:Ul%=(L%!&C)-(L%!4):NB%=(L%!16)-(L%!8):L%!0=A%(&B):
  468. &400CB,,L%:br%=(L%!16)-(L%!8):Yn%=-Ul%:wn%=-NB%:Dn%=-80:Un%=0:L%!0=A%(1):
  469. &400CB,,L%:Pn%=(L%!16)-(L%!8):
  470. Cy(ay%,uJ%,wJ%)L%!0=ay%:
  471. &400CB,,L%:L%!&C=uJ%+(L%!&C)-(L%!4):L%!16=wJ%+(L%!16)-(L%!8):L%!4=uJ%:L%!8=wJ%:
  472. &400C5,,L%:
  473. N(ay%,uJ%,wJ%,nr%)L%!0=ay%:
  474. &400CB,,L%:L%!&C=uJ%+(L%!&C)-(L%!4):L%!16=wJ%+(L%!16)-(L%!8):L%!4=uJ%:L%!8=wJ%:L%!28=nr%:
  475. &400C5,,L%:
  476. J(ay%)L%!0=ay%:
  477. &400C6,,L%:
  478. a(ay%)L%!0=ay%:
  479. &400CB,,L%:L%!28=-1:
  480. &400C5,,L%:
  481. Oy:Z%!0=A%(p%):
  482. &400C6,,Z%:
  483. Wy:Wu%=
  484. :n_%=
  485. C(A%(7),Zy%):Zy%=-1:i%=-1:Bl%=
  486. LO%,Q%,u%:
  487. &400CF,,L%:LO%=
  488. (-1):
  489. (Z%!0=A%(7))
  490. A("Can"):H$=
  491. A("Dis"):
  492. A("UnQ")
  493. &400C6,,Z%:
  494. A%(7):
  495. A%(24):Z%!0=A%(25):
  496. &400C6,,Z%
  497. By%:s_%=-1
  498. J%(u%)=Z%!0
  499. Au(u%,Z%!0)
  500. A%(7)
  501. I$,".")
  502. (I$)-Q%,1)<>".":Q%+=1:
  503. 5+sy,"Filer_OpenDir "+
  504. (I$)-(Q%+1))
  505. Sl%=i%
  506. Fi%=&400E1
  507. i%<>-1
  508. Py(i%,
  509. b(i%+64,vJ%),64,x%):
  510. Py(i%,
  511. b(i%,vJ%),0,P%):
  512. aJ(t%)
  513. i%=ny%
  514. i%=s_%
  515. &F)=1
  516. mJ(i%)
  517. &F)=2
  518. ZJ(i%)
  519. ((F%(u%)
  520. 16)=0)
  521. ((F%(u%)
  522. 1)<>0)
  523. V%=u%:
  524. k(u%):
  525. :Fi%=&400C7:By=6193
  526. iy(`y,_y)J$=
  527. (`y):Qy$=
  528. (_y):
  529. A(A%(30),2,
  530. A("RWr")):L%!0=A%(7):
  531. &400CB,,L%:
  532. N(A%(30),L%!4,(L%!16)+42,A%(7)):
  533. X%,Y%,x_%,B$,Ly%,F,UB%,a`%,Ay,Jy:
  534. &400CF,,Yy%:X%=Yy%!0:Y%=Yy%!4:x_%=Z%!24:
  535. x_%=8
  536. x_%=&7F
  537. x_%>=32
  538. x_%<=&FF
  539. A%(7):
  540. Z%!4=Zy%
  541. t%=ty%
  542. x_%>32
  543. x_%<>&7F
  544. &406C0:
  545. DJ:ty%=P%:
  546. A(A%(7),Zy%,
  547. (x_%)):
  548. T_(Zy%,i%):
  549. &400D2,A%(7),Zy%,,,-1,1:
  550. &406C1
  551. Z(A%(7),Zy%):
  552. B$,1)=" "
  553. B$,2):
  554. A(A%(7),Zy%,B$):
  555. T_(Zy%,i%):
  556. &400D2,A%(7),Zy%,,,-1,0
  557. t%<ty%
  558. vJ%=(!((!b%)+(t%*2)))
  559. &FFFF
  560. vJ%=(!((!b%)+((t%-1)*2)))
  561. &FFFF
  562. (B$)>(?((S%!(i%*4))+278))
  563. fy(i%,
  564. (B$)+4):?((S%!(i%*4))+278)=
  565. (B$)+4:
  566. m:Vu%=
  567. T:$((!((!e%)+(vJ%*4)))+
  568. F(i%))=B$:
  569. $((!((!e%)+(vJ%*4)))+
  570. F(i%))=B$
  571. :Fi%=&400E1:An%=
  572. +20:By=6192:
  573. T_(Zy%,i%):
  574. Hy(i%):
  575. i%=s_%
  576. IJ(i%)
  577. 1:Ly%=&A^(?((S%!(i%*4))+279)):B$=
  578. Z(A%(7),Zy%):
  579. qy:F=
  580. (B$):UB%=!((S%!(i%*4))+281):a`%=!((S%!(i%*4))+285):
  581. ((F>UB%)
  582. (F<a`%))
  583. ((?((S%!(i%*4))+278))
  584. 7:Gu%=
  585. iy(a`%,UB%)
  586. J(A%(30)):Gu%=
  587. Rl(i%,t%,F*Ly%):
  588. t%<ty%
  589. vJ%=(!((!b%)+(t%*2)))
  590. &FFFF
  591. vJ%=(!((!b%)+((t%-1)*2)))
  592. &FFFF
  593. :Fi%=&400E1:An%=
  594. +20:By=6192:
  595. Hy(i%)
  596. 2:B$=
  597. Z(A%(7),Zy%):
  598. qy:F=
  599. (B$):Ay=|((S%!(i%*4))+281):Jy=|((S%!(i%*4))+286):
  600. ((F>Ay)
  601. (F<Jy))
  602. ((?((S%!(i%*4))+278))
  603. 7:Gu%=
  604. iy(a`%,UB%)
  605. J(A%(30)):Gu%=
  606. hu(i%,t%,F):
  607. t%<ty%
  608. vJ%=(!((!b%)+(t%*2)))
  609. &FFFF
  610. vJ%=(!((!b%)+((t%-1)*2)))
  611. &FFFF
  612. :Fi%=&400E1:An%=
  613. +20:By=6192:
  614. Hy(i%)
  615. A%(26):
  616. A%(25):
  617. &400DC,x_%
  618. Z%!0=A%(&B)
  619. @&g_%=V%:Fa%=A%(&B):
  620. G(A%(&F),X%,Y%)
  621. My:Bl%=
  622. G(A%(M),X%,Y%)
  623. 386:T%=
  624. Q(X%,Y%):
  625. A(A%(31),1,
  626. A("NeF")+
  627. (R%)):
  628. Cy(A%(31),X%,Y%)
  629. A(A%(18),1,I$):
  630. A(A%(18),0,d$):
  631. Q(A%(18),
  632. A("SAs")):AJ%=eJ%:_$=d$:
  633. G(A%(18),X%,Y%)
  634. Z%!0=A%(&B)
  635. A(A%(18),1,
  636. A("DrF")):
  637. A(A%(18),0,"File_AFF"):
  638. Q(A%(18),
  639. A("ExG")):AJ%=&AFF:_$="File_AFF"
  640. A(A%(18),1,
  641. A("Txt")):
  642. A(A%(18),0,"File_FFF"):
  643. Q(A%(18),
  644. A("ExT")):AJ%=&FFF:_$="File_FFF":Ba%=
  645. G(A%(18),X%,Y%)
  646. A(A%(18),1,
  647. A("CSV")):
  648. A(A%(18),0,"File_DFE"):
  649. Q(A%(18),
  650. A("ExC")):AJ%=&DFE:_$="File_DFE":
  651. G(A%(18),X%,Y%)
  652. du%=&D:
  653. Y(yn%,0),X%,Y%)
  654. Z(A%(16),4,
  655. ):Yu%=
  656. Z(A%(16),4,
  657. ):Yu%=
  658. 389:Ll%=_l%:Da%=1:
  659. oJ(Z%!0,Z%!4)
  660. X_(0)
  661. H_(X%,Y%,-1,
  662. Q(X%,Y%))
  663. (?((S%!(
  664. Q(X%,Y%)*4))+277)=1)
  665. (?((S%!(
  666. Q(X%,Y%)*4))+277)=2)
  667. Q(X%,Y%))
  668. m_(X%,Y%)
  669. 393:ya%=X%:Ya%=Y%:ma%=Yy%!&C:T%=
  670. Q(ya%,Ya%):
  671. k_(X%,Y%-fn%)
  672. 409:T%=
  673. Q(X%,Y%):
  674. r_(T%)
  675. dQya%=X%:Ya%=Y%:ma%=Yy%!&C:T%=
  676. Q(ya%,Ya%):`n%=?((S%!(T%*4))+277):
  677. rJ(X%,Y%-fn%)
  678. Yy(t%)
  679. 475:T%=
  680. Q(X%,Y%):
  681. tJ(t%)
  682. (Z%!0)
  683. A%(7):
  684. 30,431:
  685. O(0,0):
  686. 395,430:
  687. O(-cy%*(P%+1),0):
  688. z(P%)
  689. q(cy%),0):
  690. z(t%-1)
  691. q(-cy%),0):
  692. z(t%+1)
  693. i%=R%-1
  694. t%<>ty%
  695. t%=P%
  696. Yy(t%)
  697. O_(i%,t%):
  698. Yy(t%)
  699. Zy%<>-1
  700. O_(i%,t%)
  701. 399,410:
  702. Zy%<>-1
  703. wi(i%,t%)
  704. 398,394:
  705. Zy%<>-1
  706. O_(i%,t%)
  707. &400DC,x_%
  708. A%(17):
  709. &400DC,x_%
  710. A%(16):
  711. x_%=&D
  712. Z(A%(16),8)))
  713. &400DC,x_%
  714. A%(18):
  715. bJ(18,AJ%)
  716. &400D4,,-1:
  717. J(A%(18))
  718. &400DC,x_%
  719. A%(27):
  720. J(A%(27))
  721. J(A%(27))
  722. &400DC,x_%
  723. &400DC,x_%
  724. X(D%,k$,`y$)$D%=
  725. A(k$):D%?&C=7:D%?&D=2:D%?&E=7:D%?&F=0:D%!16=
  726. A(`y$))*16:D%!20=44:D%!24=0:
  727. M(D%,R`%,k$,W`%,Hl%,BO%)
  728. m$:m$=
  729. A(k$):D%+=28+(24*R`%):
  730. (m$)<=&C
  731. $(D%+&C)=m$
  732. Hl%=Hl%
  733. &41502,bi%,k$,0
  734. ,,D%!&C:D%!16=-1:D%!20=
  735. (m$)+1
  736. :D%!0=W`%:D%!4=BO%:D%!8=Hl%:
  737. Y(D%,R`%,jy$,W`%,Hl%,BO%)D%+=28+(24*R`%):Hl%=Hl%
  738. 2:D%!&C=
  739. cy(j_%,jy$):D%!16=j_%:D%!20=0:D%!0=W`%:D%!4=BO%:D%!8=Hl%:
  740. j_(D%,R`%,k$,W`%,Hl%,BO%,pn%)$pn%=
  741. A(k$):D%+=28+(24*R`%):
  742. ($pn%)<=&C
  743. $(D%+&C)=$pn%
  744. Hl%=Hl%
  745. 256:D%!&C=pn%:D%!16=-1:D%!20=
  746. ($pn%)+1
  747. :D%!0=W`%:D%!4=BO%:D%!8=Hl%:
  748. ly(D%,R`%,ly$,W`%,x`%)D%+=28+(24*R`%):$(D%+&C)=ly$:D%!0=W`%:D%!4=x`%:D%!8=Z:
  749. rZ%,sZ%,dZ%:Z=1+32+W_+x_:r=2+32+W_+x_+8:
  750. jl%28+ (4*24):
  751. X(jl%,"App","BarMenuWidth"):
  752. M(jl%,0,"Inf",0,Z,A%(&E)):
  753. M(jl%,1,"Man",0,Z,-1):
  754. M(jl%,2,"Prf",8,Z,A%(19)):
  755. M(jl%,3,"Qit",&80,Z,-1):
  756. kl%28+ (4*24):
  757. X(kl%,"SaT","SaveMenuWidth")
  758. M(kl%,0,"DBF",8,Z,A%(18)):
  759. M(kl%,1,"CSV",8,Z,A%(18)):
  760. M(kl%,2,"Txt",8,Z,A%(18)):
  761. M(kl%,3,"ITx",8+&80,Z,A%(18)):
  762. Jl%28+ (3*24):
  763. X(Jl%,"Fld","FieldMenuWidth"):
  764. M(Jl%,0,"Alt",0,Z,-1):
  765. M(Jl%,1,"Add",0,Z,-1):
  766. M(Jl%,2,"Del",&80,Z,-1):
  767. CJ%28+ (6*24)
  768. X(CJ%,"ReM","RecordMenuWidth"):
  769. M(CJ%,0,"Sav",0,Z,kl%):
  770. M(CJ%,1,"Pri",2+8,Z,A%(M)):
  771. M(CJ%,2,"Fld",8,Z,Jl%):
  772. M(CJ%,3,"ARc",0,Z,-1):
  773. M(CJ%,4,"DRc",&80,Z,-1):
  774. di%28+ (3*24):
  775. X(di%,"Gra","GraphMenuWidth"):
  776. M(di%,0,"Exp",8,Z,A%(18))
  777. M(di%,1,"Pri",0,Z,A%(&F)):
  778. M(di%,2,"Vie",8+&80,Z,-1):
  779. zi%28+ (4*24):
  780. X(zi%,"GrT","GraphTypeMenuWidth"):
  781. M(zi%,0,"PCt",0,Z,-1):
  782. M(zi%,1,"BCt",0,Z,-1):
  783. M(zi%,2,"ScG",0,Z,-1):
  784. M(zi%,3,"LGr",&80,Z,-1):
  785. iu%28+ (7*24):
  786. X(iu%,"FST","FillStyleMenuWidth")
  787. Y(iu%,0,"fill0",0,r,-1):
  788. Y(iu%,1,"fill1",0,r,-1):
  789. Y(iu%,2,"fill2",0,r,-1):
  790. Y(iu%,3,"fill3",0,r,-1):
  791. Y(iu%,4,"fill4",0,r,-1):
  792. Y(iu%,5,"fill5",0,r,-1):
  793. Y(iu%,6,"fill6",&80,r,-1):
  794. mu%28+ (7*24):
  795. X(mu%,"PST","PointStyleMenuWidth")
  796. Y(mu%,0,"style0",0,r,-1):
  797. Y(mu%,1,"style1",0,r,-1):
  798. Y(mu%,2,"style2",0,r,-1):
  799. Y(mu%,3,"style3",0,r,-1):
  800. Y(mu%,4,"style4",0,r,-1):
  801. Y(mu%,5,"style5",0,r,-1):
  802. Y(mu%,6,"style6",&80,r,-1):
  803. _J%28+ (&C*24):
  804. X(_J%,"Ope","StringSearchMenuWidth")
  805. M(_J%,0,"MnuOp0",0,Z,-1):
  806. M(_J%,1,"MnuOp1",0,Z,-1):
  807. M(_J%,2,"MnuOp2",0,Z,-1):
  808. M(_J%,3,"MnuOp3",0,Z,-1):
  809. M(_J%,4,"MnuOp4",0,Z,-1):
  810. M(_J%,5,"MnuOp5",0,Z,-1):
  811. M(_J%,6,"MnuOp6",0,Z,-1):
  812. M(_J%,7,"MnuOp7",0,Z,-1):
  813. M(_J%,8,"MnuOp8",0,Z,-1)
  814. M(_J%,9,"MnuOp9",0,Z,-1):
  815. M(_J%,&A,"MnuOp10",0,Z,-1):
  816. M(_J%,&B,"MnuOp11",&80,Z,-1):
  817. Pl%28+ (6*24):
  818. X(Pl%,"Ope","NumericalSearchMenuWidth"):
  819. M(Pl%,0,"MnuOp0",0,Z,-1):
  820. M(Pl%,1,"MnuOp1",0,Z,-1):
  821. M(Pl%,2,"MnuOp2",0,Z,-1):
  822. M(Pl%,3,"MnuOp3",0,Z,-1)
  823. M(Pl%,4,"MnuOp4",0,Z,-1):
  824. M(Pl%,5,"MnuOp5",&80,Z,-1):
  825. Kn%28+ (2*24):
  826. X(Kn%,"Ope","SwitchSearchMenuWidth"):
  827. M(Kn%,0,"MnuOp0",0,Z,-1):
  828. M(Kn%,1,"MnuOp1",&80,Z,-1):
  829. yn%28+ (2*24):
  830. X(yn%,"Dir","SortDirectionMenuWidth"):
  831. M(yn%,0,"Asc",0,Z,-1)
  832. M(yn%,1,"Dec",&80,Z,-1):
  833. ju%28+ (6*24):
  834. X(ju%,"PrS","PrefixMenuWidth"):
  835. M(ju%,0,"pr1",0,Z,-1):
  836. M(ju%,1,"pr2",0,Z,-1):
  837. M(ju%,2,"pr3",0,Z,-1):
  838. M(ju%,3,"pr4",0,Z,-1):
  839. M(ju%,4,"pr5",2,Z,-1):
  840. M(ju%,5,"Spc",&80,Z,-1):
  841. il%28+ (6*24)
  842. X(il%,"Lin","LinearMenuWidth"):
  843. M(il%,0,"sf1",0,Z,-1):
  844. M(il%,1,"sf2",0,Z,-1):
  845. M(il%,2,"sf3",0,Z,-1):
  846. M(il%,3,"sf4",0,Z,-1):
  847. M(il%,4,"sf5",0,Z,-1):
  848. M(il%,5,"sf6",&80,Z,-1):
  849. Ti%28+ (5*24):
  850. X(Ti%,"Wei","WeightMenuWidth"):
  851. M(Ti%,0,"sf7",0,Z,-1)
  852. M(Ti%,1,"sf8",0,Z,-1):
  853. M(Ti%,2,"sf9",0,Z,-1):
  854. M(Ti%,3,"sfA",0,Z,-1):
  855. M(Ti%,4,"sfB",&80,Z,-1):
  856. ti%28+ (5*24):
  857. X(ti%,"Are","AreaMenuWidth"):
  858. M(ti%,0,"sfC",0,Z,-1):
  859. M(ti%,1,"sfD",0,Z,-1):
  860. M(ti%,2,"sfE",0,Z,-1):
  861. M(ti%,3,"sfF",2,Z,-1)
  862. M(ti%,4,"sfG",&80,Z,-1):
  863. Vi%28+ (5*24):
  864. X(Vi%,"Vol","VolumeMenuWidth"):
  865. M(Vi%,0,"sfH",0,Z,-1):
  866. M(Vi%,1,"sfI",0,Z,-1):
  867. M(Vi%,2,"sfJ",2,Z,-1):
  868. M(Vi%,3,"sfK",0,Z,-1):
  869. M(Vi%,4,"sfL",&80,Z,-1):
  870. _u%28+ (7*24):
  871. X(_u%,"SxU","SuffixMenuWidth")
  872. M(_u%,0,"Lin",0,Z,il%):
  873. M(_u%,1,"Wei",0,Z,Ti%):
  874. M(_u%,2,"Are",0,Z,ti%):
  875. M(_u%,3,"Vol",2,Z,Vi%):
  876. M(_u%,4,"
  877. C",0,Z,-1):
  878. M(_u%,5,"%",0,Z,-1):
  879. M(_u%,6,"Spc",&80,Z,-1):
  880. Cl%28+ (6*24):
  881. X(Cl%,"PgS","PageSizeMenuWidth"):
  882. M(Cl%,0,"PS0",0,Z,-1)
  883. M(Cl%,1,"PS1",0,Z,-1):
  884. M(Cl%,2,"PS2",0,Z,-1):
  885. M(Cl%,3,"PS3",0,Z,-1):
  886. M(Cl%,4,"PS4",0,Z,-1):
  887. M(Cl%,5,"PS5",&80,Z,-1):
  888. G(aO%,X%,Y%)
  889. &400D4,,aO%,X%,Y%:Ja%=aO%:
  890. `(aO%,X%,Y%)
  891. &400E8,,aO%,X%,Y%:
  892. i_(Wa%)v%!0=Wa%:
  893. &400CC,,v%
  894. &400D7,Wa%,v%+44:
  895. &41500,,"<DataBase$Dir>"+".Messages"
  896. ,,Cy%:
  897. `r%Cy%,bi%16:
  898. &41501,bi%,"<DataBase$Dir>"+".Messages",`r%:
  899. Ql(n%,m%)
  900. n%=n%
  901. 4:!n%=0:
  902. :!(m%-4)=0:
  903. A(k$)
  904. &61502,bi%,k$,er%,&FF,J$,Qy$,0
  905. ,,Ky$;NO%:
  906. D(d%)=(
  907. #d%)+((
  908. #d%)<<8)+((
  909. #d%)<<16)+((
  910. #d%)<<24)
  911. q(d%,N%)
  912. #d%,N%:
  913. #d%,N%>>8:
  914. #d%,N%>>16:
  915. #d%,N%>>24:
  916. X(d%,Cy%)
  917. F$,G%,pJ%:G%=
  918. &C,4,d%,v%,Cy%:F$=
  919. $v%,Cy%):pJ%=
  920. (F$):
  921. pJ%<Cy%
  922. #d%=G%+pJ%+1
  923. t_(d%,Py%)
  924. &C,4,d%,Py%,5:
  925. U_(d%,Py%)
  926. &C,2,d%,Py%,5:
  927. l_(d%,n%,Cy%)
  928. &C,2,d%,n%,Cy%:
  929. b_(d%,n%,Cy%)
  930. &C,4,d%,n%,Cy%
  931. ;A_%:
  932. A("IvF")
  933. Sy(M%,Cy%)
  934. K(Cy%)
  935. A("Mem")
  936. :S%!(M%*4)=Ry%:Y_%+=Cy%:zy%+=Cy%:ly%=zy%:Ry%+=Cy%:
  937. Ua(U$)
  938. Ia%,M%,d%,O`%,lo%:
  939. &406C0:d%=
  940. (U$):
  941. ("Remove "+U$):
  942. A("SaC")
  943. #d%,"EDSS";:
  944. q(d%,3):
  945. q(d%,3):Ia%=0:
  946. Ia%=Ia%
  947. Ia%=Ia%
  948. q(d%,Ia%):
  949. Z(A%(&D),3)+
  950. (&D),30);:
  951. q(d%,x%):
  952. q(d%,R%):
  953. R%-1:Iy%=?((S%!(M%*4))+277):
  954. $((S%!(M%*4))+8)+
  955. (&D),&C);:
  956. $((S%!(M%*4))+21)+
  957. (&D),&FF);:
  958. ((!((S%!(M%*4))+277))
  959. 65791)=0
  960. -O`%=
  961. Qy(M%)+2:
  962. O`%<>(?((S%!(M%*4))+278))
  963. fy(M%,O`%):
  964. :lo%=(!((S%!(M%*4))+277)
  965. -&FF01)+(O`%<<8):
  966. q(d%,lo%)
  967. q(d%,!((S%!(M%*4))+277))
  968. l_(d%,(S%!(M%*4))+537,60)
  969. q(d%,!((S%!(M%*4))+281)):
  970. q(d%,!((S%!(M%*4))+285)):
  971. $((S%!(M%*4))+289)+
  972. (&D),&B);:
  973. $((S%!(M%*4))+301)+
  974. (&D),&B);
  975. U_(d%,(S%!(M%*4))+281):
  976. U_(d%,(S%!(M%*4))+286):
  977. $((S%!(M%*4))+291)+
  978. (&D),&B);:
  979. $((S%!(M%*4))+303)+
  980. (&D),&B);
  981. $((S%!(M%*4))+281)+
  982. (&D),&C);:
  983. $((S%!(M%*4))+294)+
  984. (&D),&C);
  985. R%-1:
  986. l_(d%,Ky%!(M%*4),x%*2):
  987. x%-1:G%=!((!e%)+(U%*4)):
  988. R%-1:Iy%=?((S%!(M%*4))+277):
  989. ($G%)+
  990. (&D),?((S%!(M%*4))+278));:G%+=(?((S%!(M%*4))+278))+1
  991. q(d%,!G%):G%+=4
  992. U_(d%,G%):G%+=5
  993. #d%,?G%:G%+=1
  994. uu(d%)
  995. 8,18,U$,eJ%:
  996. &406C1:n_%=
  997. :I$=U$:
  998. ky(R%,Uk%)
  999. hl%,Ci%,M%:
  1000. 6Ry%=
  1001. A("DbW"),524+256+(hl%*(R%+R%+1))+Ci%,`l%)
  1002. K(524+256+(hl%*(R%+R%+1))+Ci%)
  1003. A("Mem")
  1004. :hl%=((Uk%+511)
  1005. 512)*&400:Ci%=((Uk%+&FF)
  1006. 256)*&400:
  1007. Ci%=0
  1008. Ci%=&400:hl%=&400
  1009. :S%=Ry%:e%=Ry%+256:b%=Ry%+260:_%=Ry%+264:Ky%=Ry%+520:!e%=Ry%+524+256:
  1010. M%=-1
  1011. R%-1:_%!(M%*4)=Ry%+524+256+Ci%+(hl%*(M%+1)):
  1012. R%-1:Ky%!(M%*4)=Ry%+524+256+Ci%+(hl%*(R%+1))+(hl%*M%):
  1013. :Ry%+=524+256+(hl%*(R%+R%+1))+Ci%:qu%=Ry%:zy%=Ry%:ly%=zy%:Y_%=Ry%:
  1014. lu(D%,u%)
  1015. G%,fB%,tB%,Vl%:
  1016. :D%!0=jy:D%!4=-1:$(D%+8)="":$(D%+264)="":$(D%+520)="":$(D%+552)="":D%?607=1:D%?605=8+16+32+64+&80:D%?(605+1)=256>>8:|(D%+584)=0:|(D%+594)=0:|(D%+589)=0:|(D%+600)=0:D%!608=-1:D%!612=-1:D%!616=0:|(D%+620)=0:|(D%+625)=5
  1017. G%=D%+632
  1018. (D%+632)+(&C*2)
  1019. &C:G%!0=-1:G%!4=-1:G%!8=0:
  1020. :D%!668=0:D%!672=
  1021. a(209.9):D%!676=
  1022. a(297):D%!680=(0.5*(1<<16)):
  1023. G%=D%+684
  1024. (D%+684)+(44*31)
  1025. 44:$(G%+0)="":
  1026. G%!32:
  1027. G%!36:
  1028. G%!40:
  1029.  &FE1A700,&F0835000,&1,&E5E500,&15EED00,&2,&AD6EE500,&9B4C00,&8,&CF7400,&800,&4,&FFFFFE00,&0,&8,&3FFFFE00,&8BD100,&4,&1FFFE00,&B97400,&2,&CCD57000,&B1F500,&1
  1030.  &B74000,&3AE100,&1,&FAD17E00,&E1EB00,&2,&FFFFFE00,&FA108F00,&3,&3FA3EB00,&0,&4,&1FFFE00,&BD3400
  1031.  &2,&FFE00,&0,&C,&ED1A00,&32E300,&4,&9BA75C00,&BFEDA100,&8,&FFFFFE00,&1CBF00,&1,&3FFFFE00,&AFED00,&2,&1FFFE00,&0,&3,&FFE00,&F8F7CD00,&4
  1032.  &F4704C00,&EDC9F300,&3,&FBAF00,&B9F900,&2,&FFFFFE00,&C5D700,&1,&3FFFFE00,&912200,&8,&1E35C00,&A1AF00,&1
  1033.  &FFE00,&0,&2,&F4F30E00,&28DF00,&3,&F40CF700,&0,&4,&FFFFFE00,&8EA33800,&1,&3FFFFE00,&D1D300,&8,&1FFFE00,&0,&4,&D,&D,&D
  1034. o_(u%):
  1035. o_(u%)v%!0=0:v%!4=-((Z%(u%)!676)/256)*((Z%(u%)!680)/(1<<16)):v%!8=((Z%(u%)!672)/256)*((Z%(u%)!680)/(1<<16)):v%!&C=0:
  1036. &400D7,J%(u%),v%:
  1037. &400D1,J%(u%),0,-&FFFFFF,&FFFFFF,0:
  1038. Ly:fJ%=(sl%+3)
  1039. 3:xJ%=fJ%:
  1040. Sa(ey%)
  1041. Zy(jy):Z%(ey%)=xJ%:
  1042. Z%(ey%)
  1043. 1,"Graph not word alligned"
  1044. xJ%+=jy:
  1045. Z_$,by$:
  1046. by$<>""
  1047. ry(by$)
  1048. au(l$,u$)
  1049. Q%(),B$(),B_%,yu%,PO%:
  1050. Jy:ay%=
  1051. (l$):o$=
  1052. #ay%:
  1053. #ay%)<32
  1054.     PO%=
  1055. #ay%=(
  1056. #ay%)-1
  1057. :Q%=1:B_%=1:
  1058. o$,u$,Q%):B_%+=1:Q%=
  1059. o$,u$,Q%)+1:
  1060. B$(B_%),Q%(B_%):Q%=1:
  1061. B_%-1:B$(M%)=
  1062. o$,Q%,
  1063. o$,u$,Q%)-Q%):Q%=
  1064. o$,u$,Q%)+1:
  1065. :ve%=
  1066. #ay%:yu%=0:
  1067. #ay%:
  1068. K$<>""
  1069. 1Q%=1:
  1070. B_%-1:Si%=0:Cy%=0:
  1071. K$,Q%,1)=""""
  1072. Si%=1:Q%+=1
  1073. :Ni%=
  1074. K$,Q%,1)=""""
  1075. K$,Q%+1,1)=""""
  1076. Q%+=1:Cy%+=1
  1077. K$,Q%+1,1)=u$
  1078. Q%+1>
  1079. :Q%+=1
  1080. Cy%+=1
  1081. K$,Q%,1)=u$
  1082. Si%=0
  1083.     Ni%=
  1084. Cy%+=1
  1085. :Q%+=1:
  1086. (K$)):
  1087. Q%(M%)<Cy%
  1088. Q%(M%)=Cy%
  1089. :yu%+=1:
  1090. #ay%:
  1091. ky(B_%,yu%):
  1092. B_%-1:
  1093. Sy(M%,604):
  1094. f(S%!(M%*4),(S%!(M%*4))+537):Xu%=604:
  1095. Q%(M%)<8
  1096. Q%(M%)=8
  1097. :$((S%!(M%*4))+8)=B$(M%):$((S%!(M%*4))+21)="":?((S%!(M%*4))+278)=Q%(M%):?((S%!(M%*4))+279)=1:?((S%!(M%*4))+277)=0:?((S%!(M%*4))+280)=&FF:!(S%!(M%*4))=604:wy%+=Q%(M%)+1:
  1098. :cy%+=60*B_%:
  1099. yu%>0
  1100. K(((wy%+3)
  1101. 3))*yu%)
  1102. A("Mem")
  1103. :Ry%+=(((wy%+3)
  1104. 3))*yu%):ly%=zy%+(((wy%+3)
  1105. 3))*yu%):
  1106. #ay%=ve%:
  1107. yu%-1:!((!e%)+(U%*4))=zy%+(((wy%+3)
  1108. 3))*U%):G%=!((!e%)+(U%*4)):K$=
  1109. #ay%:
  1110. :Q%=1:
  1111. B_%-1:$G%="":Si%=0:Cy%=0:
  1112. K$,Q%,1)=""""
  1113. Si%=1:Q%+=1
  1114. :Ni%=
  1115. K$,Q%,1)=""""
  1116. K$,Q%+1,1)=""""
  1117. Q%+=1:$G%=$G%+""""
  1118. K$,Q%+1,1)=u$
  1119. Q%+1>
  1120. :Q%+=1
  1121. $G%=$G%+""""
  1122. K$,Q%,1)=u$
  1123. Si%=0
  1124. '    Ni%=
  1125. $G%=$G%+
  1126. K$,Q%,1)
  1127. :Q%+=1:
  1128. (K$)):G%+=Q%(M%)+1:
  1129. :P%=yu%:x%=yu%:R%=B_%:iJ%=R%:
  1130. y:i%=0:Wu%=
  1131. :Vu%=
  1132. T:I$=l$:
  1133. Uy:ty%=P%:
  1134. ((P%+1)*cy%)>296
  1135. ,#O_%=-((P%+1)*cy%):
  1136. _(A%(7),O_%)
  1137. O_%=-296:
  1138. _(A%(7),O_%)
  1139. #ay%:Li%=
  1140. y(l$):
  1141. &406C1:
  1142. Ya(l$)
  1143. ay%,ZJ%,q$,XZ%,Ty$,Ay$,c_%,B_%:
  1144. M%,U%:
  1145. Jy:ay%=
  1146. (l$):
  1147. #ay%,c_%,B_%,ZJ%:
  1148. ky(B_%,c_%):
  1149. B_%-1:
  1150. #ay%,q$,XZ%,Ty$:
  1151. Sy(M%,604):wy%+=ZJ%+1:
  1152. f(S%!(M%*4),(S%!(M%*4))+537):Xu%=604:$((S%!(M%*4))+8)=q$:$((S%!(M%*4))+21)=Ty$
  1153. ?((S%!(M%*4))+278)=ZJ%:?((S%!(M%*4))+279)=1:?((S%!(M%*4))+277)=0:?((S%!(M%*4))+280)=&FF:!(S%!(M%*4))=604:
  1154. :cy%+=60*B_%:
  1155. c_%>0
  1156. K(((wy%+3)
  1157. 3))*c_%)
  1158. A("Mem")
  1159. :Ry%+=(((wy%+3)
  1160. 3))*c_%):ly%=zy%+(((wy%+3)
  1161. 3))*c_%):
  1162. c_%-1:!((!e%)+(U%*4))=zy%+(((wy%+3)
  1163. 3))*U%):G%=!((!e%)+(U%*4)):
  1164. #ay%,Ay$:Q%=1:
  1165. B_%-1:$G%=
  1166. Ay$,Q%,
  1167. Ay$,"|",Q%)-Q%):Q%=
  1168. Ay$,"|",Q%)+1:G%+=ZJ%+1:
  1169. :P%=c_%:x%=c_%:R%=B_%:iJ%=R%:
  1170. y:i%=0:Wu%=
  1171. :Vu%=
  1172. T:I$=l$:
  1173. Uy:ty%=P%:
  1174. ((P%+1)*cy%)>296
  1175. 5#O_%=-((P%+1)*cy%):
  1176. _(A%(7),O_%)
  1177. O_%=-296:
  1178. _(A%(7),O_%)
  1179. #ay%:Li%=
  1180. y(l$):
  1181. &406C1:
  1182. ry(qy$)
  1183. d%,C`%,cn%,M%,q$,Ty$,Iy%,c_%,r_%,V_%,G%,qe%,qB%:
  1184. &406C0:d%=
  1185. (qy$):
  1186. A("UOF")
  1187. :Li%=d%:qB%=
  1188. D(d%):
  1189. qB%<>&73614244
  1190. qB%<>&53534445
  1191. A("IF2")
  1192. :OZ%=
  1193. D(d%):C`%=
  1194. D(d%):
  1195. C`%>3
  1196. A("VEr")
  1197. C`%=0
  1198. A("VOl")
  1199. Jy:cn%=
  1200. D(d%):ey$=
  1201. X(d%,30):c_%=
  1202. D(d%):B_%=
  1203. D(d%):
  1204. ky(B_%,c_%):
  1205. B_%-1:q$=
  1206. X(d%,&C):Ty$=
  1207. X(d%,&FF):Iy%=
  1208. D(d%)
  1209. (-&1000000):
  1210. Sy(M%,604):
  1211. b_(d%,(S%!(M%*4))+537,60):
  1212. f(S%!(M%*4),(S%!(M%*4))+537):wy%+=((Iy%
  1213. &FF00)>>8)+1:Xu%=604
  1214. Sy(M%,316):!((S%!(M%*4))+281)=
  1215. D(d%):!((S%!(M%*4))+285)=
  1216. D(d%):
  1217. C`%>=3
  1218. C=$((S%!(M%*4))+289)=
  1219. X(d%,&B):$((S%!(M%*4))+301)=
  1220. X(d%,&B)
  1221. $((S%!(M%*4))+289)="":$((S%!(M%*4))+301)=""
  1222. :wy%+=4:Xu%=316
  1223. Sy(M%,316):
  1224. t_(d%,(S%!(M%*4))+281):
  1225. t_(d%,(S%!(M%*4))+286):
  1226. C`%>=3
  1227. G=$((S%!(M%*4))+291)=
  1228. X(d%,&B):$((S%!(M%*4))+303)=
  1229. X(d%,&B)
  1230. $((S%!(M%*4))+291)="":$((S%!(M%*4))+303)=""
  1231. :wy%+=5:Xu%=316
  1232. Sy(M%,308):$((S%!(M%*4))+281)=
  1233. X(d%,&FF):$((S%!(M%*4))+294)=
  1234. X(d%,&FF):wy%+=1:Xu%=308
  1235. :$((S%!(M%*4))+8)=q$:$((S%!(M%*4))+21)=Ty$:!((S%!(M%*4))+277)=Iy%:!(S%!(M%*4))=Xu%:
  1236. :cy%+=60*B_%:P%=c_%:x%=c_%:R%=B_%:iJ%=R%:
  1237. c_%>0
  1238. K(((wy%+3)
  1239. 3))*c_%)
  1240. A("Mem")
  1241. :Ry%+=(((wy%+3)
  1242. 3))*c_%):ly%=zy%+(((wy%+3)
  1243. 3))*c_%):
  1244. gu(d%)
  1245. :r_%=((
  1246. #d%)-(
  1247. #d%)):
  1248. &C,4,d%,Ry%-r_%,r_%
  1249. ,,,CZ%:V_%=Ry%-r_%:
  1250. c_%-1:!((!e%)+(U%*4))=zy%+(((wy%+3)
  1251. 3))*U%):G%=!((!e%)+(U%*4)):
  1252. B_%-1:Iy%=?((S%!(M%*4))+277):
  1253. 0:$G%=
  1254. $V_%,?((S%!(M%*4))+278)):
  1255. ($G%)=?((S%!(M%*4))+278)
  1256. V_%+=
  1257. ($G%)
  1258. V_%+=
  1259. ($G%)+1
  1260. ($G%)
  1261. ($G%)-1:
  1262. (G%?I%)<32
  1263. G%?I%=42:qe%=
  1264. :G%+=(?((S%!(M%*4))+278))+1
  1265. 1:!G%=!V_%:G%+=4:V_%+=4
  1266. 2:|G%=|V_%:V_%+=5:G%+=5
  1267. 3:?G%=?V_%:V_%+=1:G%+=1
  1268. cl(V_%)
  1269. :i%=0:Wu%=
  1270. :Vu%=
  1271. T:I$=qy$:
  1272. Uy:ty%=P%:
  1273. ((P%+1)*cy%)>296
  1274. e#O_%=-((P%+1)*cy%):
  1275. _(A%(7),O_%)
  1276. O_%=-296:
  1277. _(A%(7),O_%)
  1278. #d%:Li%=
  1279. y(qy$):
  1280. &406C1:
  1281. P,"Warning: file had some bad record entries, which have been corrected, but may still be corrupt. Bad characters have been replaced with '*'"
  1282. y(I$)
  1283. mo%,ke%,Ze%:
  1284. 8,23,I$
  1285. ,,ke%,mo%:Z%!0=mo%:Z%!4=ke%:
  1286. &4304C,-1,Z%,Z%+16,256-16
  1287. ,Ze%:?Ze%=&D:=$(Z%+16)
  1288. e_%,r%,T`%:
  1289. 6,&E5,0,0:
  1290. e_%=0
  1291. R%-1:au%=0:T`%=_%!(e_%*4):
  1292. x%-1:T`%?0=r%
  1293. &FF:T`%?1=r%>>8:T`%+=2:
  1294. sa(e_%,?((S%!(e_%*4))+277),
  1295. F(e_%),_%!(e_%*4),0,x%-1):
  1296. B(_%!(e_%*4),Ky%!(e_%*4),x%*2):
  1297. gu(d%)
  1298. B_%-1:
  1299. b_(d%,_%!(M%*4),c_%*2):
  1300. B(_%!(M%*4),Ky%!(M%*4),c_%*2):
  1301. ky(0,0):
  1302. _(A%(7),296):
  1303. Zy%<>-1
  1304. &400D2,A%(7),Zy%,,,-1,0
  1305. &400D2,A%(7),-1,0,0,1<<25,0
  1306. _i%,Oa%,ol%,Ul%:L%!0=A%(16):
  1307. &400CB,,L%:Ul%=(L%!&C)-(L%!4):L%!0=A%(&D):
  1308. &400CB,,L%:ol%=(L%!16)-(L%!8)+42:
  1309. Vu%+Ul%>Ou%-&64
  1310. _i%=(Ou%-&64)-Ul%
  1311. _i%=Vu%
  1312. _i%<800
  1313. _i%=800
  1314. Oa%<296
  1315. Oa%=296
  1316. :UJ%=_i%:
  1317. cy%+ol%>ru%-&74 -&64
  1318. Oa%=(ru%-&74 -&64)-ol%
  1319. Oa%=cy%
  1320. :L%!0=A%(7):L%!4=((Ou%-(_i%+Ul%))/2)+Ul%:L%!8=((ru%-(Oa%+ol%))/2)+ol%:L%!&C=(Ou%+(_i%+Ul%))/2:L%!16=(ru%+(Oa%+ol%))/2:L%!20=0:L%!24=0:L%!28=-1:
  1321. &400C5,,L%:!L%=A%(7):
  1322. &400CB,,L%:
  1323. N(A%(&D),L%!4+On%,L%!8+on%,L%!28):!L%=A%(7):
  1324. &400CB,,L%
  1325. N(A%(16),L%!4+L`%,L%!16+_`%,A%(&D)):
  1326. __(fk%)
  1327. fk%<>s_%
  1328. :L%!0=By%:
  1329. &400CB,,L%:
  1330. J(By%):
  1331. H_(L%!4,L%!8,L%!28,fk%)
  1332. eu(X%,Y%)
  1333. N(A%(23),X%,Y%,-1):
  1334. B(k_%,ji%,64):
  1335. H_(X%,Y%,Q%,M%)
  1336. ay%,Iy%,g`%:g`%=By%:
  1337. M%=-1
  1338. :s_%=M%:Iy%=?((S%!(M%*4))+277):
  1339. 0:By%=A%(&A):
  1340. IJ(M%)
  1341. 1:By%=A%(8):
  1342. mJ(M%)
  1343. 2:By%=A%(8):
  1344. ZJ(M%)
  1345. 3:By%=A%(9):
  1346. HJ(M%)
  1347. UJ(M%):
  1348. g`%<>By%
  1349. g`%<>-1
  1350. J(g`%)
  1351. N(By%,X%,Y%,Q%):
  1352. UJ(M%)
  1353. A(By%,3,
  1354. A("1Rc"))
  1355. A(By%,3,
  1356. (P%)+
  1357. A("Rcs"))
  1358. A(By%,0,$((S%!(M%*4))+8)):
  1359. IJ(M%)
  1360. A(By%,5,
  1361. A("Lng")+" "+
  1362. dy(M%))):
  1363. dy(M%)
  1364. r%,Cy%,F%,rl%:F%=
  1365. F(M%):
  1366. P%-1:rl%=
  1367. ($((!((!e%)+(((!((_%!(M%*4))+(r%*2)))
  1368. &FFFF)*4)))+F%)):
  1369. rl%>Cy%
  1370. Cy%=rl%
  1371. :=Cy%
  1372. Qy(M%)
  1373. r%,Cy%,F%,rl%:F%=
  1374. F(M%):
  1375. x%-1:rl%=
  1376. ($((!((!e%)+(((!((Ky%!(M%*4))+(r%*2)))
  1377. &FFFF)*4)))+F%)):
  1378. rl%>Cy%
  1379. Cy%=rl%
  1380. :=Cy%
  1381. ny(M%)
  1382. zB%:zB%=?((S%!(M%*4))+279):
  1383. @%="+F."+
  1384. (zB%)
  1385. @%="+G.9"
  1386. mJ(M%)
  1387. yy,Jr%,le%,y,F%,r%,oa%,HJ%,Ju%,r$,XJ%,O%,Wy,Zy,v`%,Ly%,@%:
  1388. ny(M%):Ly%=&A^(?((S%!(M%*4))+279)):v`%=0:HJ%=0:Ju%=0:r$="":O%=_%!(M%*4):F%=
  1389. F(M%):oa%=!((!((!e%)+(((!O%)
  1390. &FFFF)*4)))+F%):
  1391. P%-1:XJ%=!((!((!e%)+(((O%!(r%*2))
  1392. &FFFF)*4)))+F%)
  1393. v`%+=XJ%:
  1394. XJ%=oa%
  1395. HJ%+=1
  1396. HJ%=Ju%
  1397. r$+=","+
  1398. (oa%/Ly%)
  1399. HJ%>Ju%
  1400. (oa%/Ly%):Ju%=HJ%
  1401. :HJ%=1:oa%=XJ%
  1402. :Jr%=!((!((!e%)+(((O%!0)
  1403. &FFFF)*4)))+F%):le%=!((!((!e%)+(((O%!((P%-1)*2))
  1404. &FFFF)*4)))+F%):
  1405. HJ%=Ju%
  1406. r$+=","+
  1407. (XJ%/Ly%)
  1408. HJ%>Ju%
  1409. (oa%/Ly%)
  1410. :yy=v`%/P%:
  1411. y=(!((!((!e%)+(((O%!(
  1412. (P%/2)*2))
  1413. &FFFF)*4)))+F%))+(!((!((!e%)+(((O%!((
  1414. (P%/2)-1)*2))
  1415. &FFFF)*4)))+F%)):Wy=((!((!((!e%)+(((O%!(
  1416. (P%/4)*2))
  1417. &FFFF)*4)))+F%))+(!((!((!e%)+(((O%!((
  1418. (P%/4)-1)*2))
  1419. &FFFF)*4)))+F%)))/2
  1420. zZy=((!((!((!e%)+(((O%!(
  1421. (P%*0.75)*2))
  1422. &FFFF)*4)))+F%))+(!((!((!e%)+(((O%!((
  1423. (P%*0.75)-1)*2))
  1424. &FFFF)*4)))+F%)))/2:y=y/2
  1425. Wy=!((!((!e%)+(((O%!(
  1426. (P%/4)*2))
  1427. &FFFF)*4)))+F%):Zy=!((!((!e%)+(((O%!(
  1428. (P%*0.75)*2))
  1429. &FFFF)*4)))+F%):y=!((!((!e%)+(((O%!(
  1430. (P%/2)*2))
  1431. &FFFF)*4)))+F%)
  1432. A(By%,5,
  1433. (Jr%/Ly%)+" "+
  1434. A("to")+" "+
  1435. (le%/Ly%)):
  1436. A(By%,&C,
  1437. (yy/Ly%)):
  1438. A(By%,&D,
  1439. (y/Ly%)):
  1440. A(By%,&E,r$):
  1441. A(By%,7,
  1442. (Wy/Ly%)):
  1443. A(By%,16,
  1444. (Zy/Ly%)):
  1445. A(By%,&B,
  1446. ((Zy-Wy)/Ly%)):
  1447. A(By%,22,
  1448. (v`%/Ly%)):
  1449. ZJ(M%)
  1450. yy,DJ,UJ,y,F%,r%,Ny,HJ%,Ju%,r$,py,O%,Yi%,Wy,Zy,_:Yi%=@%:@%="+F.2":_=0:HJ%=0:Ju%=0:r$="":O%=_%!(M%*4):F%=
  1451. F(M%):Ny=|((!((!e%)+(((!O%)
  1452. &FFFF)*4)))+F%):
  1453. P%-1:py=|((!((!e%)+(((O%!(r%*2))
  1454. &FFFF)*4)))+F%):_+=py:
  1455. py=Ny
  1456. HJ%+=1
  1457. HJ%=Ju%
  1458. r$+=","+
  1459. HJ%>Ju%
  1460. (Ny):Ju%=HJ%
  1461. :HJ%=1:Ny=py
  1462. :UJ=|((!((!e%)+(((O%!((P%-1)*2))
  1463. &FFFF)*4)))+F%):DJ=|((!((!e%)+(((O%!0)
  1464. &FFFF)*4)))+F%):
  1465. HJ%=Ju%
  1466. r$+=","+
  1467. HJ%>Ju%
  1468. :yy=_/P%:
  1469. y=|((!((!e%)+(((O%!(
  1470. (P%/2)*2))
  1471. &FFFF)*4)))+F%):y+=|((!((!e%)+(((O%!((
  1472. (P%/2)-1)*2))
  1473. &FFFF)*4)))+F%):y=y/2:Wy=((|((!((!e%)+(((O%!(
  1474. (P%/4)*2))
  1475. &FFFF)*4)))+F%))+(|((!((!e%)+(((O%!((
  1476. (P%/4)-1)*2))
  1477. &FFFF)*4)))+F%)))/2
  1478. tZy=((|((!((!e%)+(((O%!(
  1479. (P%*0.75)*2))
  1480. &FFFF)*4)))+F%))+(|((!((!e%)+(((O%!((
  1481. (P%*0.75)-1)*2))
  1482. &FFFF)*4)))+F%)))/2
  1483. Wy=|((!((!e%)+(((O%!(
  1484. (P%/4)*2))
  1485. &FFFF)*4)))+F%):Zy=|((!((!e%)+(((O%!(
  1486. (P%*0.75)*2))
  1487. &FFFF)*4)))+F%):y=|((!((!e%)+(((O%!(
  1488. (P%/2)*2))
  1489. &FFFF)*4)))+F%)
  1490. A(By%,5,
  1491. (DJ)+" "+
  1492. A("to")+" "+
  1493. (UJ)):
  1494. A(By%,&C,
  1495. (yy)):
  1496. A(By%,&D,
  1497. (y)):
  1498. A(By%,&E,r$):
  1499. A(By%,7,
  1500. (Wy)):
  1501. A(By%,16,
  1502. (Zy)):
  1503. A(By%,&B,
  1504. (Zy-Wy)):
  1505. A(By%,22,
  1506. (_)):@%=Yi%:
  1507. HJ(M%)
  1508. r%,XJ%,O%,WB%,F%,Yi%:Yi%=@%:@%="+F.0":F%=
  1509. F(M%):O%=_%!(M%*4):WB%=?((!((!e%)+(((!O%)
  1510. &FFFF)*4)))+F%):
  1511. WB%=0
  1512. A(By%,4,$((S%!(M%*4))+281)):
  1513. A(By%,6,$((S%!(M%*4))+294))
  1514. A(By%,4,$((S%!(M%*4))+294)):
  1515. A(By%,6,$((S%!(M%*4))+281))
  1516. :r%=-1:
  1517. r%+=1:XJ%=?((!((!e%)+(((O%!(r%*2))
  1518. &FFFF)*4)))+F%):
  1519. XJ%<>WB%
  1520. r%=(P%-1):
  1521. r%=(P%-1)
  1522. XJ%=WB%
  1523.     r%+=1
  1524. A(By%,5,
  1525. (r%))+", "+
  1526. ((r%/P%)*&64))+"%"):
  1527. A(By%,7,
  1528. (P%-r%))+", "+
  1529. (((P%-r%)/P%)*&64))+"%"):@%=Yi%:
  1530. m_(X%,Y%)
  1531. p%:p%=0:
  1532. (F%(p%)
  1533. 1)<>0
  1534. p%<&F:p%+=1:
  1535. (F%(p%)
  1536. 1)<>0
  1537. A("NFG")
  1538. N(J%(p%),X%,Y%,-1):F%(p%)=F%(p%)
  1539. Sa(p%):
  1540. lu(Z%(p%),p%):
  1541. fJ(p%):
  1542. V%=p%:SB%=J%(p%):F%(p%)=F%(p%)
  1543. xy(Z%(p%)?607):
  1544. N(A%(0),L%!4+Yn%,L%!16+wn%,-1):!L%=J%(p%):
  1545. &400CB,,L%:
  1546. N(A%(1),L%!4+Un%,(L%!8)+Dn%-Pn%,-1)
  1547. Di(M%)
  1548. ey%,D%,G%:
  1549. ey%=0
  1550. F%(ey%)
  1551. D%=Z%(ey%):
  1552. D%!608>=M%
  1553. D%!608+=1
  1554. G%=D%+632
  1555. (D%+632)+(&C*2)
  1556. G%!0>=M%
  1557. G%!4<>4
  1558. G%!0+=1
  1559. Tl(M%)
  1560. ey%,D%,G%,Bi%:
  1561. ey%=0
  1562. &F:Bi%=
  1563. F%(ey%)
  1564. D%=Z%(ey%):
  1565. D%!608>M%
  1566. D%!608-=1
  1567. D%!608=M%
  1568. D%!608=-1:Bi%=
  1569. G%=D%+632
  1570. (D%+632)+(&C*2)
  1571. G%!0>M%
  1572. G%!4<>4
  1573. G%!0-=1
  1574. G%!0=M%
  1575. G%!4<>4
  1576. G%!0=-1:Bi%=
  1577. F%(ey%)=F%(ey%)
  1578. ey%=0
  1579. (F%(ey%)
  1580. (1+16))=(1+16)
  1581. 'F%(ey%)=F%(ey%)
  1582. (F%(ey%)
  1583. ;F$(ey%)=
  1584. A("CSR"):
  1585. &400D1,J%(ey%),0,-&FFFFFF,&FFFFFF,0
  1586. Hy(M%)
  1587. ey%,D%,G%,Bi%:
  1588. ey%=0
  1589. F%(ey%)
  1590. (1+16)
  1591. D%=Z%(ey%):
  1592. D%!608=M%
  1593.     Bi%=
  1594. G%=D%+632
  1595. (D%+632)+(&C*2)
  1596. G%!0=M%
  1597. G%!4<>4
  1598.     Bi%=
  1599. F%(ey%)=F%(ey%)
  1600. 16):Bi%=
  1601. Au(u%,p%)
  1602. (F%(u%)
  1603. 2SO%=u%:H$=
  1604. A("Clo"):L$=
  1605. A("Can"):
  1606. A("WLG")
  1607. SJ(u%,p%):
  1608. SJ(u%,p%)
  1609. r_%,r%:
  1610. V%=u%
  1611. J(A%(3)):
  1612. J(A%(4)):
  1613. J(A%(6)):
  1614. J(A%(2)):
  1615. J(A%(29)):
  1616. J(A%(0)):
  1617. J(A%(1)):
  1618. J(A%(5)):
  1619. J(A%(32)):V%=-1
  1620. :r_%=Z%(u%)!0:
  1621. B(Z%(u%)+r_%,Z%(u%),xJ%-(Z%(u%)+r_%)):
  1622. Z%(r%)>Z%(u%)
  1623. Z%(r%)-=r_%
  1624. :xJ%-=r_%:
  1625. Zy(-r_%):Z%(u%)=0:F%(u%)=0:
  1626. k(u%)
  1627. r%,r_%,D%:r_%=Z%(u%)!0:
  1628. r_%+Z%(u%)<xJ%
  1629. U(r_%):
  1630. B(Z%(u%),D%,r_%):
  1631. B(Z%(u%)+r_%,Z%(u%),xJ%-(Z%(u%)+r_%)):
  1632. Z%(r%)>Z%(u%)
  1633. Z%(r%)-=r_%
  1634. B(D%,xJ%-r_%,r_%):Z%(u%)=xJ%-r_%:
  1635. uZ%:Z%!0=A%(3):
  1636. &400CB,,Z%:
  1637. ((Z%!32)
  1638. (1<<16))
  1639. 1Z%!0=A%(4):
  1640. &400CB,,Z%:
  1641. ((Z%!32)
  1642. (1<<16))
  1643. 2Z%!0=A%(34):
  1644. &400CB,,Z%:
  1645. ((Z%!32)
  1646. (1<<16))
  1647. 1Z%!0=A%(6):
  1648. &400CB,,Z%:
  1649. ((Z%!32)
  1650. (1<<16))
  1651. 1Z%!0=A%(2):
  1652. &400CB,,Z%:
  1653. ((Z%!32)
  1654. (1<<16))
  1655. 2Z%!0=A%(29):
  1656. &400CB,,Z%:
  1657. ((Z%!32)
  1658. (1<<16))
  1659. Jy:dB%=0:fr%=
  1660. :_l%=0:A`%=Gi%:Yu%=Gi%:Sl%=0:G`%=0:l_%?0=0:l_%?1=0:l_%?2=&FF:P%=0:x%=0:ty%=0:R%=0:iJ%=0:yr%=
  1661. :Wu%=
  1662. :n_%=
  1663. :ey$=
  1664. A("DBN"):wy%=0:I$=
  1665. A("DBF"):Fy$=
  1666. A("All"):cy%=64:O_%=-296:Vu%=800:UJ%=800:
  1667. _(A%(7),O_%):g$=
  1668. $:aa%=0:w$="":s$="":Z%()=0
  1669. V%=-1:C%()=-1:
  1670. _(p%,Y%)
  1671. D%:D%=
  1672. U(92):!D%=p%:
  1673. &400CC,,D%+1:D%!(48)=Y%:
  1674. p%=A%(7)
  1675. D%!44=0:D%!52=Vu%
  1676. &400D7,p%,D%+44:
  1677. O(h%,Q%)L%!0=A%(7):
  1678. &400CB,,L%:L%!24=h%:
  1679. L%!28=Q%
  1680. &400C5,,L%:
  1681. q(vi%)L%!0=A%(7):
  1682. &400CB,,L%:=(L%!24)+vi%
  1683. A(A%(&D),5,""):
  1684. A(A%(&D),3,ey$):
  1685. m$si%="R2;Sascending":
  1686. A(A%(&D),6,$((!S%)+8)):
  1687. S(A%(&D),5):
  1688. S(A%(&D),&A):
  1689. S(A%(&D),&C):
  1690. S(A%(16),5):
  1691. A(A%(&D),5,
  1692. A("All")):
  1693. S(A%(16),6):
  1694. S(A%(16),9):
  1695. S(A%(16),4):
  1696. S(A%(&D),&E):
  1697. S(A%(&D),6):
  1698. S(A%(&D),9):
  1699. S(A%(&D),8)
  1700. P(A%(&D),&C)
  1701. P(A%(16),6):
  1702. P(A%(16),9):
  1703. P(A%(16),4):
  1704. P(A%(&D),&E):
  1705. P(A%(&D),6):
  1706. P(A%(&D),9):
  1707. P(A%(&D),8)
  1708. $si%="R2;Sdirblank":
  1709. A(A%(&D),6,
  1710. A("NoF")):
  1711. P(A%(&D),9):
  1712. P(A%(&D),8):
  1713. P(A%(&D),6):
  1714. P(A%(16),4):
  1715. P(A%(&D),&E):
  1716. P(A%(&D),&C):
  1717. P(A%(&D),&A):
  1718. P(A%(&D),5):
  1719. P(A%(16),5):
  1720. P(A%(16),6):
  1721. P(A%(16),9)
  1722. Z(A%(16),4,Gi%):
  1723. P(A%(&D),7)
  1724. S(A%(&D),7)
  1725. M%,D%:C%(0,0)=Z%(V%)!608:G%(0,0)=Z%(V%)!612:D%=Z%(V%)+632:
  1726. 2:C%(1,M%)=D%!0:G%(1,M%)=D%!4:D%+=&C:
  1727. M%,D%,ky%:Z%(V%)!608=C%(0,M%):Z%(V%)!612=G%(0,M%):D%=Z%(V%)+632:
  1728. (Z%(V%)?607)=0
  1729. C%(1,0)=-1
  1730. !=D%!0=0:D%!4=4:ky%=D%!8:ky%=ky%
  1731. 16):ky%=ky%
  1732. 4:D%!8=ky%
  1733. 2:D%!0=C%(1,M%):D%!4=G%(1,M%):D%+=&C:
  1734. k(V%):
  1735. A(A%(6),3,
  1736. (|(Z%(V%)+584))):
  1737. A(A%(6),6,
  1738. (|(Z%(V%)+589))):
  1739. A(A%(6),&F,
  1740. (|(Z%(V%)+594))):
  1741. A(A%(6),18,
  1742. (|(Z%(V%)+600))):
  1743. Z(A%(6),&A,(Z%(V%)?605)
  1744. Z(A%(6),22,(Z%(V%)?605)
  1745. Z(A%(6),&B,(Z%(V%)?605)
  1746. Z(A%(6),23,(Z%(V%)?605)
  1747. Z%(V%)?607=1
  1748. S(A%(6),26):
  1749. A(A%(6),26,
  1750. A("PHi")):
  1751. Z(A%(6),26,(Z%(V%)!605)
  1752. Z%(V%)?607=2
  1753. S(A%(6),26):
  1754. A(A%(6),26,
  1755. A("PRL")):
  1756. Z(A%(6),26,(Z%(V%)!605)
  1757. &400)
  1758. Z(A%(6),26,
  1759. P(A%(6),26)
  1760. Vi:Z%(V%)!605=(Z%(V%)!605)
  1761. (8+16+32+64+512+&400):Z%(V%)?605=(Z%(V%)?605)
  1762. S(A%(6),&A)
  1763. 8):Z%(V%)?605=(Z%(V%)?605)
  1764. S(A%(6),22)
  1765. 16):Z%(V%)?605=(Z%(V%)?605)
  1766. S(A%(6),&B)
  1767. 32):Z%(V%)?605=(Z%(V%)?605)
  1768. S(A%(6),23)
  1769. Z%(V%)?607=1
  1770. ,;Z%(V%)?(605+1)=(Z%(V%)?(605+1))
  1771. S(A%(6),26)
  1772. (512>>8))
  1773. Z%(V%)?607=2
  1774. .<Z%(V%)?(605+1)=(Z%(V%)?(605+1))
  1775. S(A%(6),26)
  1776. (&400>>8))
  1777. S(A%(6),&B)
  1778. 1=|(Z%(V%)+584)=
  1779. Z(A%(6),3)):|(Z%(V%)+589)=
  1780. Z(A%(6),6))
  1781. S(A%(6),23)
  1782. 3?|(Z%(V%)+594)=
  1783. Z(A%(6),&F)):|(Z%(V%)+600)=
  1784. Z(A%(6),18))
  1785. k(V%):
  1786. S(A%(5),0)
  1787. Z%(V%)?616=(Z%(V%)?616)
  1788. Z%(V%)?616=(Z%(V%)?616)
  1789. :|(Z%(V%)+620)=
  1790. Z(A%(5),1)):|(Z%(V%)+625)=
  1791. Z(A%(5),3)):
  1792. Ui%=0
  1793. A(A%(29),fu%,$((S%!(T%*4))+8))
  1794. A(A%(2),fu%,$((S%!(T%*4))+8))
  1795. :C%(BJ%,__%)=T%:G%(BJ%,__%)=?((S%!(T%*4))+277):
  1796. ky%:ky%=!((Z%(V%)+632)+(__%*&C)+8):ky%=ky%
  1797. 4):ky%=ky%
  1798. S(A%(32),9)
  1799. 4):ky%=ky%
  1800. S(A%(32),5)
  1801. 8):ky%=ky%
  1802. S(A%(32),&C)
  1803. 16):!((Z%(V%)+632)+(__%*&C)+8)=ky%:
  1804. T%=-2
  1805. A(A%(2),fu%,
  1806. A("FMF")):C%(BJ%,__%)=0:G%(BJ%,__%)=4
  1807. A(A%(2),fu%,$((S%!(((T%+1)-1)*4))+8)):C%(BJ%,__%)=T%:G%(BJ%,__%)=?((S%!(((T%+1)-1)*4))+277)
  1808. C%(0,0)=-1
  1809. A(A%(2),6-1,"")
  1810. A(A%(2),6-1,$((S%!(C%(0,0)*4))+8))
  1811. C%(1,0)=-1
  1812. A(A%(2),8-1,"")
  1813. G%(1,0)=4
  1814. A(A%(2),8-1,
  1815. A("FMF"))
  1816. A(A%(2),8-1,$((S%!(C%(1,0)*4))+8))
  1817. C%(1,1)=-1
  1818. A(A%(2),&C-1,"")
  1819. G%(1,1)=4
  1820. A(A%(2),&C-1,
  1821. A("FMF"))
  1822. A(A%(2),&C-1,$((S%!(C%(1,1)*4))+8))
  1823. C%(1,2)=-1
  1824. A(A%(2),16-1,"")
  1825. G%(1,2)=4
  1826. A(A%(2),16-1,
  1827. A("FMF"))
  1828. A(A%(2),16-1,$((S%!(C%(1,2)*4))+8))
  1829. t(VJ%)
  1830. &406C0:
  1831. S$(),Wi%,g%,yy%,U%,C$,S$,t$,Z_%,ml%,r%,K%:
  1832. S,W,C,V:
  1833. nl%,y`%,O%,XO%:
  1834. uy%,M%(),H%(),YJ,TJ,a%,l%,qo%,o%:
  1835. `%,C_%,F,N,A():
  1836. jy%,A_%,W$,S%(),M$(),d,n,w$,s$,b$:
  1837. T,D,Uy%,h%,Sn%,U,A:
  1838. A_,P_,D_,r_,c_,c,O_,j_,J_,N_,q_:
  1839. WkF%(V%)=F%(V%)
  1840. (16+8)):nl%=((Z%(V%)!605)
  1841. 32)>0:y`%=((Z%(V%)!605)
  1842. 64)>0:XO%=((Z%(V%)!605)
  1843. 256)>0:
  1844. A("QNR"),"",VJ%):
  1845. Z*S=|(Z%(V%)+584):C=|(Z%(V%)+589):
  1846. A("XA0"),"",VJ%):
  1847. ^*W=|(Z%(V%)+594):V=|(Z%(V%)+600):
  1848. A("YA0"),"",VJ%):
  1849. :Wi%=Z%(V%)!612:g%=Z%(V%)!608:
  1850. A("GNX"),"",VJ%):
  1851. (!(Z%(V%)+632+8)
  1852. (Z%(V%)?607)=0
  1853. A("PYF"),"",VJ%):
  1854. :yy%=
  1855. F(g%):IB%=
  1856. ((Z%(V%)?616)
  1857. Z%(V%)?607=2
  1858. hSC$=" dummy":
  1859. P%-1:S$=$(
  1860. M(U%,_%!(g%*4))+yy%):t$=
  1861. G(S$):S$=
  1862. S$,30):
  1863. S$<>C$
  1864. C$=S$:Z_%+=1
  1865. S$(Z_%-1):
  1866. A("STG"),"",VJ%):
  1867. A("STU"),"",VJ%):
  1868. 2:I`%=
  1869. O%:O%=_%!(g%*4):S=|((!((!e%)+(((O%!0)
  1870. &FFFF)*4)))+yy%):C=|((!((!e%)+(((O%!((P%-1)*2))
  1871. &FFFF)*4)))+yy%)
  1872. 1:I`%=
  1873. O%:O%=_%!(g%*4):S=!((!((!e%)+(((O%!0)
  1874. &FFFF)*4)))+yy%):C=!((!((!e%)+(((O%!((P%-1)*2))
  1875. &FFFF)*4)))+yy%)
  1876. 1,"Invalid X field type"
  1877. S$(1):ml%=
  1878. :S$(0)=$((S%!(g%*4))+294):S$(1)=$((S%!(g%*4))+281):Z_%=2:S=1:C=2
  1879. 0:yy%=
  1880. F(g%):C$=" dummy":
  1881. P%-1:S$=$(
  1882. M(U%,_%!(g%*4))+yy%):t$=
  1883. G(S$):S$=
  1884. S$,30):
  1885. S$<>C$
  1886. C$=S$:Z_%+=1
  1887. S$(Z_%-1):
  1888. 2:I`%=
  1889. |oF%=
  1890. F(g%):O%=_%!(g%*4):S=|((!((!e%)+(((O%!0)
  1891. &FFFF)*4)))+F%):C=|((!((!e%)+(((O%!((P%-1)*2))
  1892. &FFFF)*4)))+F%)
  1893. :A=|(Z%(V%)+625):U=|(Z%(V%)+620):
  1894. zJ(S,C,A,U):
  1895. (S+A))<>0
  1896. Z_%=(((C+1)-S)/A)+1.5
  1897. Z_%=(((C+1)-S)/A)+0.5
  1898. S)<>0
  1899. Z_%=((C-S)/A)+1
  1900. Z_%=(C-S)/A
  1901. 1:I`%=
  1902. F(g%):O%=_%!(g%*4):S=!((!((!e%)+(((O%!0)
  1903. &FFFF)*4)))+F%):C=!((!((!e%)+(((O%!((P%-1)*2))
  1904. &FFFF)*4)))+F%)
  1905. :A=|(Z%(V%)+625):U=|(Z%(V%)+620):
  1906. zJ(S,C,A,U):
  1907. (S+A))<>0
  1908. Z_%=(((C+1)-S)/A)+1.5
  1909. Z_%=(((C+1)-S)/A)+0.5
  1910. S)<>0
  1911. Z_%=(((C+1)-S)/A)+1.5
  1912. Z_%=(((C+1)-S)/A)+0.5
  1913. A("GNX"),"",VJ%):
  1914. M%(2,1):
  1915. 2:M%(a%,0)=uy%:l%=Z%(V%)+632+(a%*&C):
  1916. l%!0<>-1
  1917. qo%=l%!8:
  1918. F(l%!0):Mn%=l%!0:
  1919. 0:C$=" dummy":
  1920. P%-1:S$=$(
  1921. M(U%,_%!(Mn%*4))+o%):t$=
  1922. G(S$):S$=
  1923. S$,30):
  1924. S$<>C$
  1925. C$=S$:
  1926. w(uy%,C$)
  1927. w(uy%,$((S%!((l%!0)*4))+294))
  1928. w(uy%,$((S%!((l%!0)*4))+281))
  1929. 1:`%=
  1930. M(0,_%!(Mn%*4))+o%):
  1931. P%-1:C_%=!(
  1932. M(U%,_%!(Mn%*4))+o%):
  1933. C_%<>`%
  1934. `%=C_%:
  1935. ay(uy%,`%)
  1936. M(0,_%!(Mn%*4))+o%):
  1937. P%-1:N=|(
  1938. M(U%,_%!(Mn%*4))+o%):
  1939. ay(uy%,F)
  1940. w(uy%,$((S%!(g%*4))+8)+" "+
  1941. A("FMF"))
  1942. l%!4=0
  1943. l%!4=3
  1944. A("NTF"),"",VJ%):
  1945. l%!4=2
  1946.     IB%=
  1947. w(uy%,$((S%!((l%!0)*4))+8))
  1948. :M%(a%,1)=uy%-1:
  1949. uy%=0
  1950. A("NYD"),"",VJ%):
  1951. ((Z%(V%)?616)
  1952. A(uy%-1,P%-1,1)
  1953. A(uy%-1,Z_%-1,1)
  1954. H%(uy%-1):
  1955. 2:l%=Z%(V%)+632+(a%*&C):
  1956. l%!0<>-1
  1957. F(l%!0):
  1958. l%?4=1
  1959. #Ly%=&A^(?((S%!((l%?0)*4))+279))
  1960. (((Z%(V%)!616)
  1961. 1)=0)
  1962. (((l%!8)
  1963. 4)=0)
  1964. _s%=M%(a%,0):C$=" dummy":
  1965. P%-1:S$=$(
  1966. M(U%,_%!(g%*4))+yy%):t$=
  1967. G(S$):S$=
  1968. S$,30):
  1969. S$<>C$
  1970. f(S$,S$())+1:C$=S$
  1971. :A(s%,U%,0)=X%:
  1972. l%?4=1
  1973. +A(s%,U%,1)=(!(
  1974. M(U%,_%!(g%*4))+o%))/Ly%
  1975. A(s%,U%,1)=|(
  1976. M(U%,_%!(g%*4))+o%)
  1977. ((l%!8)
  1978. s%=M%(a%,0):j%=0:C$=$(
  1979. M(0,_%!(g%*4))+yy%):t$=
  1980. G(C$):C$=
  1981. C$,30):z%=
  1982. f(C$,S$()):
  1983. P%-1:S$=$(
  1984. M(U%,_%!(g%*4))+yy%):t$=
  1985. G(S$):S$=
  1986. S$,30):
  1987. S$<>C$
  1988. %Ny%=U%-1:A(s%,z%,0)=z%+1:
  1989. l%?4=1
  1990. *A(s%,z%,1)=
  1991. H(j%,Ny%,_%!(g%*4),o%)/Ly%
  1992. A(s%,z%,1)=
  1993. V(j%,Ny%,_%!(g%*4),o%)
  1994. :j%=U%:C$=S$:z%=
  1995. f(C$,S$())
  1996. :A(s%,z%,0)=z%+1:
  1997. 1:A(s%,z%,1)=
  1998. H(j%,P%-1,_%!(g%*4),o%)/Ly%
  1999. 2:A(s%,z%,1)=
  2000. V(j%,P%-1,_%!(g%*4),o%)
  2001. j%=0:C$=$(
  2002. M(0,_%!(g%*4))+yy%):t$=
  2003. G(C$):C$=
  2004. C$,30):z%=
  2005. f(C$,S$()):
  2006. P%-1:S$=$(
  2007. M(U%,_%!(g%*4))+yy%):t$=
  2008. G(S$):S$=
  2009. S$,30):
  2010. S$<>C$
  2011. Ny%=U%-1:
  2012. w(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
  2013. x(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
  2014. e(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
  2015. c(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
  2016. 4:A(M%(a%,0),z%,0)=z%+1:A(M%(a%,0),z%,1)=Ny%-j%+1
  2017. :C$=S$:j%=U%:z%=
  2018. f(C$,S$())
  2019. w(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1):
  2020. d(M%(a%,0),M%(a%,1))
  2021. x(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
  2022. e(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1):
  2023. d(M%(a%,0),M%(a%,1))
  2024. c(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,z%+1)
  2025. 4:A(M%(a%,0),z%,0)=z%+1:A(M%(a%,0),z%,1)=(P%-1)-j%+1
  2026. ((l%!8)
  2027. Qy(M%(a%,0),M%(a%,1))
  2028. ((l%!8)
  2029. _y(M%(a%,0),M%(a%,1))
  2030. 2:l%=Z%(V%)+632+(a%*&C):
  2031. l%!0<>-1
  2032. F(l%!0):
  2033. ((Z%(V%)!616)
  2034. Z%(V%)?607=1
  2035. B=A/2
  2036. Z%(V%)?607=0
  2037. ((l%!8)
  2038. vj%=0:Ny%=-1:z%=0:C_%=!(
  2039. M(0,_%!(g%*4))+yy%):`%=(((C_%-S+A)
  2040. A)*A)+S:
  2041. P%-1:C_%=!(
  2042. M(U%,_%!(g%*4))+yy%):
  2043. C_%<`%
  2044. Ny%=U%
  2045. w(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
  2046. x(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
  2047. e(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
  2048. c(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
  2049. 4:A(M%(a%,0),z%,0)=`%-B:A(M%(a%,0),z%,1)=Ny%-j%+1
  2050. :z%+=1:j%=U%:Ny%=U%:`%=(((C_%-S+A)
  2051. A)*A)+S
  2052. Ny%>j%
  2053. w(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B):
  2054. d(M%(a%,0),M%(a%,1))
  2055. x(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
  2056. e(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B):
  2057. d(M%(a%,0),M%(a%,1))
  2058. c(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%-B)
  2059. 4:A(M%(a%,0),z%,0)=`%-B:A(M%(a%,0),z%,1)=(P%-1)-j%+1
  2060. ((l%!8)
  2061. Qy(M%(a%,0),M%(a%,1))
  2062. ((l%!8)
  2063. _y(M%(a%,0),M%(a%,1))
  2064. l%?4=1
  2065. #Ly%=&A^(?((S%!((l%?0)*4))+279))
  2066. :j%=0:Ny%=-1:z%=0:C_%=!(
  2067. M(0,_%!(g%*4))+yy%):`%=(((C_%-S+A)
  2068. A)*A)+S:s%=M%(a%,0):
  2069. P%-1:C_%=!(
  2070. M(U%,_%!(g%*4))+yy%):
  2071. C_%<`%
  2072. Ny%=U%+1
  2073. A(s%,z%,0)=`%-B:
  2074. l%?4=1
  2075. *A(s%,z%,1)=
  2076. H(j%,Ny%,_%!(g%*4),o%)/Ly%
  2077. A(s%,z%,1)=
  2078. V(j%,Ny%,_%!(g%*4),o%)
  2079. :z%+=1:j%=U%:Ny%=U%:`%=(((C_%-S+A)
  2080. A)*A)+S
  2081. (C_%<=`%)
  2082. A(s%,z%,0)=`%-A:
  2083. l%?4=1
  2084. +A(s%,z%,1)=
  2085. H(j%,P%-1,_%!(g%*4),o%)/Ly%
  2086. A(s%,z%,1)=
  2087. V(j%,P%-1,_%!(g%*4),o%)
  2088. ((l%!8)
  2089.     _j%=0:Ny%=-1:z%=0:`%=!(
  2090. M(0,_%!(g%*4))+yy%):
  2091. P%-1:C_%=!(
  2092. M(U%,_%!(g%*4))+yy%):
  2093. C_%<=`%
  2094. Ny%=U%
  2095. w(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
  2096. x(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
  2097. e(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
  2098. c(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
  2099. 4:A(M%(a%,0),z%,0)=`%:A(M%(a%,0),z%,1)=Ny%-j%+1
  2100. :j%=U%:Ny%=U%:z%+=1:`%=C_%
  2101. w(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%):
  2102. d(M%(a%,0),M%(a%,1))
  2103. x(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
  2104. e(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%):
  2105. d(M%(a%,0),M%(a%,1))
  2106. c(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,`%)
  2107. 4:A(M%(a%,0),z%,0)=`%:A(M%(a%,0),z%,1)=(P%-1)-j%+1
  2108. ((l%!8)
  2109. Qy(M%(a%,0),M%(a%,1))
  2110. ((l%!8)
  2111. _y(M%(a%,0),M%(a%,1))
  2112. s%=M%(a%,0):
  2113. l%?4=1
  2114. {Ly%=&A^(?((S%!((l%?0)*4))+279)):
  2115. P%-1:A(s%,U%,0)=!(
  2116. M(U%,_%!(g%*4))+yy%):A(s%,U%,1)=(!(
  2117. M(U%,_%!(g%*4))+o%))/Ly%:
  2118. P%-1:A(s%,U%,0)=!(
  2119. M(U%,_%!(g%*4))+yy%):A(s%,U%,1)=|(
  2120. M(U%,_%!(g%*4))+o%):
  2121. 2:l%=Z%(V%)+632+(a%*&C):
  2122. l%!0<>-1
  2123. %"o%=
  2124. F(l%!0):
  2125. ((Z%(V%)!616)
  2126. Z%(V%)?607=1
  2127. Z%(V%)?607=0
  2128. B=A/2
  2129. ((l%!8)
  2130. -lj%=0:Ny%=-1:z%=0:N=|(
  2131. M(0,_%!(g%*4))+yy%):F=(((N-S+A)
  2132. A)*A)+S:
  2133. P%-1:N=|(
  2134. M(U%,_%!(g%*4))+yy%):
  2135. Ny%=U%
  2136. w(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
  2137. x(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
  2138. e(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
  2139. c(j%,Ny%,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
  2140. 4:A(M%(a%,0),z%,0)=F-B:A(M%(a%,0),z%,1)=Ny%-j%+1
  2141. :z%+=1:j%=U%:Ny%=U%:F=(((N-S+A)
  2142. A)*A)+S
  2143. Ny%>=j%
  2144. w(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B):
  2145. d(M%(a%,0),M%(a%,1))
  2146. x(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
  2147. e(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B):
  2148. d(M%(a%,0),M%(a%,1))
  2149. c(j%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),z%,F-B)
  2150. 4:A(M%(a%,0),z%,0)=F-B:A(M%(a%,0),z%,1)=(P%-1)-j%+1
  2151. ((l%!8)
  2152. Qy(M%(a%,0),M%(a%,1))
  2153. ((l%!8)
  2154. _y(M%(a%,0),M%(a%,1))
  2155. l%?4=1
  2156. D#Ly%=&A^(?((S%!((l%?0)*4))+279))
  2157. :j%=0:Ny%=-1:z%=0:N=|(
  2158. M(0,_%!(g%*4))+yy%):F=(((N-S+A)
  2159. A)*A)+S:s%=M%(a%,0):
  2160. P%-1:N=|(
  2161. M(U%,_%!(g%*4))+yy%):
  2162. Ny%=U%+1
  2163. A(s%,z%,0)=F-B:
  2164. l%?4=1
  2165. H*A(s%,z%,1)=
  2166. H(j%,Ny%,_%!(g%*4),o%)/Ly%
  2167. A(s%,z%,1)=
  2168. V(j%,Ny%,_%!(g%*4),o%)
  2169. :z%+=1:j%=U%:Ny%=U%:F=(((N-S+A)
  2170. A)*A)+S
  2171. (N<=F)
  2172. A(s%,z%,0)=F-A:
  2173. l%?4=1
  2174. M+A(s%,z%,1)=
  2175. H(j%,P%-1,_%!(g%*4),o%)/Ly%
  2176. A(s%,z%,1)=
  2177. V(j%,P%-1,_%!(g%*4),o%)
  2178. ((l%!8)
  2179. I("Cannot plot ungrouped real number field against frequency","",VJ%):
  2180. s%=M%(a%,0):
  2181. l%?4=1
  2182. UyLy%=&A^(?((S%!((l%?0)*4))+279)):
  2183. P%-1:A(s%,U%,0)=|(
  2184. M(U%,_%!(g%*4))+yy%):A(s%,U%,1)=!(
  2185. M(U%,_%!(g%*4))+o%)/Ly%:
  2186. P%-1:A(s%,U%,0)=|(
  2187. M(U%,_%!(g%*4))+yy%):A(s%,U%,1)=|(
  2188. M(U%,_%!(g%*4))+o%):
  2189. 2:l%=Z%(V%)+632+(a%*&C):
  2190. l%!0<>-1
  2191. \"o%=
  2192. F(l%!0):
  2193. ((Z%(V%)!616)
  2194. ]BU%=0:
  2195. M(U%,_%!(g%*4))+yy%)=1
  2196. (U%<(P%-1)):U%+=1:
  2197. U%=P%-1
  2198. M(U%,_%!(g%*4))+yy%)=0
  2199. FJ%=P%
  2200. FJ%=P%-1
  2201. FJ%=U%
  2202. ((l%!8)
  2203. d0A(M%(a%,0),0,0)=1:A(M%(a%,0),1,0)=2:
  2204. l%?4=1
  2205. e~Ly%=&A^(?((S%!((l%?0)*4))+279)):A(M%(a%,0),0,1)=
  2206. H(0,FJ%-1,_%!(g%*4),o%)/Ly%:A(M%(a%,0),1,1)=
  2207. H(FJ%,P%-1,_%!(g%*4),o%)/Ly%
  2208. A(M%(a%,0),0,1)=
  2209. V(0,FJ%-1,_%!(g%*4),o%):A(M%(a%,0),1,1)=
  2210. V(FJ%,P%-1,_%!(g%*4),o%)
  2211. w(0,FJ%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),0,1):
  2212. w(FJ%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),1,2):
  2213. d(M%(a%,0),M%(a%,1))
  2214. x(0,FJ%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),0,1):
  2215. x(FJ%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),1,2)
  2216. e(0,FJ%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),0,1):
  2217. e(FJ%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),1,2):
  2218. d(M%(a%,0),M%(a%,1))
  2219. c(0,FJ%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),0,1):
  2220. c(FJ%,P%-1,_%!(g%*4),o%,M%(a%,0),M%(a%,1),0,1)
  2221. 4:A(M%(a%,0),0,0)=1:A(M%(a%,0),0,1)=FJ%-1:A(M%(a%,0),1,0)=2:A(M%(a%,0),1,1)=P%-FJ%-1
  2222. ((l%!8)
  2223. Qy(M%(a%,0),M%(a%,1))
  2224. ((l%!8)
  2225. _y(M%(a%,0),M%(a%,1))
  2226. I("X field switch data must be grouped","",VJ%):
  2227. (Z%(V%)?607)<>0
  2228. y<W=9E37:V=-9E37:
  2229. uy%-1:
  2230. (A(),2):
  2231. A(s%,z%,1)>V
  2232. V=A(s%,z%,1)
  2233. A(s%,z%,1)<W
  2234. W=A(s%,z%,1)
  2235. (W/V)<=0.5
  2236. ((V/W)<0.2)
  2237. M$(uy%-1):
  2238. S%(uy%-1,2):
  2239. (Z%(V%)?607)=1
  2240. (Z%(V%)?607)=0
  2241. FB%=0<<30
  2242. (Z%(V%)?607)=2
  2243. FB%=2<<30
  2244. FB%=3<<30
  2245. uy%-1:M$(s%)=$((Z%(V%)+684)+(44*s%)+0):S%(s%,0)=(!((Z%(V%)+684)+(44*s%)+40))
  2246. FB%:S%(s%,1)=!((Z%(V%)+684)+(44*s%)+32):S%(s%,2)=!((Z%(V%)+684)+(44*s%)+36):
  2247. :Z%(V%)!668=uy%:jy%=Z%(V%)+(Z%(V%)!4):A_%+=(((Z%(V%)?605)
  2248. &80)>0)
  2249. (1*4):A_%+=ml%
  2250. ((Z%(V%)?607)=1)
  2251. A_%+=1<<1
  2252. y_(V%)
  2253. :W$=$(Z%(V%)+8):w$=$(Z%(V%)+520):s$=$(Z%(V%)+552):b$=$(Z%(V%)+264):
  2254. ((Z%(V%)?605)
  2255. ((Z%(V%)?607)=1)
  2256. ((Z%(V%)!616)
  2257. S-=1:
  2258. ((Z%(V%)?605)
  2259. 16)>0
  2260. :P_%=Z%(V%)!672:Q_%=Z%(V%)!676:A_%+=(IB%
  2261. Iu(jy%,A_%,W$,w$,s$,b$,S,W,C,V,d,n,M$(),S%(),S$(),P_%,Q_%,T,D,Uy%,h%,Sn%,U,A):
  2262. #|(Z%(V%)+584)=S:|(Z%(V%)+589)=C
  2263. #|(Z%(V%)+594)=W:|(Z%(V%)+600)=V
  2264. (Z%(V%)?607)
  2265. ((Z%(V%)!616)
  2266. GO%=_%!(g%*4):
  2267. uy%-1:w=A(s%,0,0):
  2268. (A(),2):
  2269. A(s%,z%,0)>=w
  2270. Cw=A(s%,z%,0):Hy=A(s%,z%,0):Vy=A(s%,z%,0)+A:
  2271. ((Z%(V%)!605)
  2272. Wi%=1
  2273. Hy<(!((!((!e%)+(((O%!0)
  2274. &FFFF)*4)))+F%))
  2275. ,Hy=(!((!((!e%)+(((O%!0)
  2276. &FFFF)*4)))+F%))
  2277. Vy>(!((!((!e%)+(((O%!((P%-1)*2))
  2278. &FFFF)*4)))+F%))
  2279. 5Vy=(!((!((!e%)+(((O%!((P%-1)*2))
  2280. &FFFF)*4)))+F%))
  2281. Wi%=2
  2282. Hy<(!((!((!e%)+(((O%!0)
  2283. &FFFF)*4)))+F%))
  2284. ,Hy=(|((!((!e%)+(((O%!0)
  2285. &FFFF)*4)))+F%))
  2286. Vy>(!((!((!e%)+(((O%!((P%-1)*2))
  2287. &FFFF)*4)))+F%))
  2288. 5Vy=(|((!((!e%)+(((O%!((P%-1)*2))
  2289. &FFFF)*4)))+F%))
  2290. :k_=A/(Vy-Hy)
  2291. f_(jy%,Uy%,h%,T,D,Hy,0,Vy,A(s%,z%,1)*k_,S%(s%,0),S%(s%,1),S%(s%,2))
  2292. uy%-1:w=A(s%,0,0):
  2293. (A(),2):
  2294. A(s%,z%,0)>=w
  2295. nw=A(s%,z%,0):
  2296. f_(jy%,Uy%,h%,T,D,A(s%,z%,0)-(A/2),0,A(s%,z%,0)+(A/2),A(s%,z%,1),S%(s%,0),S%(s%,1),S%(s%,2))
  2297. uy%-1:w=A(s%,0,0):
  2298. (A(),2):
  2299. A(s%,z%,0)>=w
  2300. Yw=A(s%,z%,0):
  2301. gJ(jy%,Uy%,h%,T,D,A(s%,z%,0),A(s%,z%,1),S%(s%,0)
  2302. &FF,S%(s%,1),S%(s%,2))
  2303. uy%-1:G%=
  2304. B(My%,S%(s%,1),-1,0,0,0):
  2305. K(0,G%,(A(s%,0,0)*T)+Uy%,(A(s%,0,1)*D)+h%):w=A(s%,0,0):
  2306. (A(),2):
  2307. A(s%,z%,0)>=w
  2308. >w=A(s%,z%,0):
  2309. W(0,G%,(A(s%,z%,0)*T)+Uy%,(A(s%,z%,1)*D)+h%)
  2310. R(0,G%):
  2311. uy%-1:w=A(s%,0,0):O_=0:j_=0:c_=0:J_=0:c=0:
  2312. (A(),2):
  2313. A(s%,z%,0)>=w
  2314. w=A(s%,z%,0):c+=1:O_+=A(s%,z%,0):j_+=A(s%,z%,1):c_+=A(s%,z%,0)*A(s%,z%,1):J_+=A(s%,z%,0)^2:
  2315. gJ(jy%,Uy%,h%,T,D,A(s%,z%,0),A(s%,z%,1),S%(s%,0)
  2316. &FF,S%(s%,1),S%(s%,2))
  2317. ((Z%(V%)!605)
  2318. &400)
  2319. A_=O_/c:P_=j_/c:r_=c_-(c*A_*P_):D_=J_-(c*(A_^2)):N_=P_-((r_/D_)*A_):q_=(r_/D_):G%=
  2320. B(My%,S%(s%,1),-1,0,0,0):
  2321. K(0,G%,(A(s%,0,0)*T)+Uy%,(((A(s%,0,0)*q_)+N_)*D)+h%):
  2322. W(0,G%,(C*T)+Uy%,(((C*q_)+N_)*D)+h%):
  2323. R(0,G%)
  2324. (A(),1)>31
  2325. (31+1):
  2326. A("GTS"),"",VJ%)
  2327. Wi%=1
  2328. Wi%=2
  2329. 3Z_%=0:w=A(0,0,0):
  2330. Ay%=1
  2331. (A(),2):
  2332. A(0,Ay%,0)>w
  2333. Z_%+=1
  2334. M$(Z_%):
  2335. S%(Z_%,2):
  2336. ((Z%(V%)?616)
  2337. Ay%=0
  2338. Z_%:M$(Ay%)=
  2339. (A(0,Ay%,0)):S%(Ay%,0)=0:S%(Ay%,1)=!((Z%(V%)+684)+(44*Ay%)+32):S%(Ay%,2)=!((Z%(V%)+684)+(44*Ay%)+36):
  2340. Ay%=0
  2341. Ay%=0
  2342. M$(Ay%)="<="+
  2343. (A(0,Ay%,0))
  2344. M$(Ay%)=
  2345. (A(0,Ay%-1,0))+"-"+
  2346. (A(0,Ay%,0))
  2347. :S%(Ay%,0)=0:S%(Ay%,1)=!((Z%(V%)+684)+(44*Ay%)+32):S%(Ay%,2)=!((Z%(V%)+684)+(44*Ay%)+36):
  2348. S$(M%(0,1)+1)
  2349. M$(M%(0,1)+1):
  2350. (S$(),1),2):
  2351. M$(),S$():
  2352. Ay%=0
  2353. (M$(),1):S%(Ay%,0)=0:S%(Ay%,1)=!((Z%(V%)+684)+(44*Ay%)+32):S%(Ay%,2)=!((Z%(V%)+684)+(44*Ay%)+36):
  2354. M%(0,1):S$(s%)=$((Z%(V%)+684)+(44*s%)+0):
  2355. (M$(),1):$((Z%(V%)+684)+(44*s%)+0)=M$(s%):
  2356. :Z%(V%)!668=
  2357. (M$(),1)+1:
  2358. y_(V%)
  2359. :W$=$(Z%(V%)+8):b$=$(Z%(V%)+264):P_%=Z%(V%)!672:Q_%=Z%(V%)!676:
  2360. ((l%!8)
  2361. vy=&64
  2362. vy=P%
  2363. :jy%=Z%(V%)+(Z%(V%)!4):A_%+=(((Z%(V%)?605)
  2364. &80)>0)
  2365. (1*4):
  2366. wa(jy%,A_%,W$,A_$,P_%,Q_%,A(),M$(),S%(),S$(),vy,M%(0,1))
  2367. :Z%(V%)!4=jy%-Z%(V%):Z%(V%)!0=Ry%-Z%(V%):F%(V%)=F%(V%)
  2368. 16:xJ%=Ry%:
  2369. &400D1,J%(V%),0,-&FFFFFF,&FFFFFF,0:
  2370. &406C1:
  2371. I(e$,oy$,VJ%)F$(V%)=e$:j$=oy$:
  2372. &400D1,J%(V%),0,-&FFFFFF,&FFFFFF,0:
  2373. &406C1:
  2374. Qy(Fl%,za%)
  2375. s%,z%,_:
  2376. s%=Fl%
  2377. za%:_=0:
  2378. (A(),2):_+=A(s%,z%,1):
  2379. (A(),2):A(s%,z%,1)=(A(s%,z%,1)/_)*&64:
  2380. _y(Fl%,za%)
  2381. s%,z%:
  2382. s%=Fl%
  2383. (A(),2):A(s%,z%,1)+=A(s%,z%-1,1):
  2384. y_(u%)
  2385. ku%,w$,s$,r%,JB%,Ne%,Au%,ha%,gi%,_k%,W$,b$:
  2386. Z%(u%)?607
  2387. 0:W$=
  2388. A("PCt")
  2389. ((Z%(u%)!605)
  2390. A("His")
  2391. A("Bar")
  2392. 3:W$=
  2393. A("LGr")
  2394. 2:W$=
  2395. A("ScG")
  2396. :ku%=Z%(u%)!608:w$=$((S%!(ku%*4))+8):
  2397. Z%(u%)!612=1
  2398. $((S%!(ku%*4))+301)<>""
  2399. $((S%!(ku%*4))+301))<>"/"
  2400.  w$+=" /"+$((S%!(ku%*4))+301)
  2401. w$+=" "+$((S%!(ku%*4))+301)
  2402. Z%(u%)!612=2
  2403. $((S%!(ku%*4))+303)<>""
  2404. $((S%!(ku%*4))+303))<>"/"
  2405.  w$+=" /"+$((S%!(ku%*4))+303)
  2406. w$+=" "+$((S%!(ku%*4))+303)
  2407. 2:ha%=Z%(u%)+632+(&C*r%):
  2408. ha%!0>=0
  2409. *Au%+=1:gi%=ha%!0:_k%=ha%?4:
  2410. (ha%!8)
  2411. JB%+=1:
  2412. (ha%!8)
  2413. Ne%+=1
  2414. Au%=1
  2415. _k%<>4
  2416.  s$=$((S%!(gi%*4))+8):
  2417. JB%=0
  2418. ?((S%!(gi%*4))+277)
  2419. $((S%!(gi%*4))+301)<>""
  2420.  s$+=" /"+$((S%!(gi%*4))+301)
  2421. $((S%!(gi%*4))+303)<>""
  2422.  s$+=" /"+$((S%!(gi%*4))+303)
  2423. JB%=Au%
  2424. Ne%=JB%
  2425. s$+=" % frequency"
  2426. s$+=" frequency"
  2427. :$(Z%(u%)+520)=w$:$(Z%(u%)+552)=s$:$(Z%(u%)+8)=W$:
  2428. ju(U$)
  2429. (F%(g_%)
  2430. 16)=0
  2431. A("GNU")
  2432. u%=g_%:
  2433. &406C0:
  2434. ("Remove "+U$):
  2435. A("SaC")
  2436. ("Save "+U$+" "+
  2437. ~((Z%(u%)!4)+Z%(u%))+" "+
  2438. ~(Z%(u%)+(Z%(u%)!0))):
  2439. 8,18,U$,&AFF:
  2440. &406C1
  2441. H(j%,Ny%,O%,F%)
  2442. U%,_:
  2443. Ny%>j%
  2444. U%=j%
  2445. Ny%:_+=!(
  2446. M(U%,O%)+F%):
  2447. :=_/((Ny%-j%)+1)
  2448. M(j%,O%)+F%)
  2449. V(j%,Ny%,O%,F%)
  2450. U%,_:
  2451. Ny%>j%
  2452. U%=j%
  2453. Ny%:_+=|(
  2454. M(U%,O%)+F%):
  2455. :=_/((Ny%-j%)+1)
  2456. M(j%,O%)+F%)
  2457. w(j%,Ny%,O%,F%,Rl%,kJ%,z%,Iy)
  2458. U%,`%,s%:
  2459. U%=j%
  2460. Ny%:`%=!(
  2461. M(U%,O%)+F%):
  2462. s%=Rl%
  2463. |((Z%(V%)+684)+(44*s%))=`%
  2464. A(s%,z%,1)+=1
  2465. s%=Rl%
  2466. kJ%:A(s%,z%,0)=Iy:
  2467. e(j%,Ny%,O%,F%,Rl%,kJ%,z%,Iy)
  2468. U%,F,s%:
  2469. U%=j%
  2470. Ny%:F=|(
  2471. M(U%,O%)+F%):
  2472. s%=Rl%
  2473. |((Z%(V%)+684)+(44*s%))=F
  2474. A(s%,z%,1)+=1
  2475. s%=Rl%
  2476. kJ%:A(s%,z%,0)=Iy:
  2477. d(Rl%,kJ%)
  2478. s%=Rl%
  2479. kJ%:$((Z%(V%)+684)+(44*s%))=
  2480. (|((Z%(V%)+684)+(44*s%))):
  2481. x(j%,Ny%,O%,F%,Rl%,kJ%,z%,Iy)
  2482. U%,M$,s%,t$:
  2483. U%=j%
  2484. Ny%:M$=$(
  2485. M(U%,O%)+F%):t$=
  2486. G(M$):M$=
  2487. M$,30):
  2488. s%=Rl%
  2489. $((Z%(V%)+684)+(44*s%))=M$
  2490. A(s%,z%,1)+=1
  2491. s%=Rl%
  2492. kJ%:A(s%,z%,0)=Iy:
  2493. c(j%,Ny%,O%,F%,Rl%,kJ%,z%,Iy)
  2494. U%,s%:
  2495. U%=j%
  2496. M(U%,O%)+F%)
  2497. A(Rl%,z%,1)+=1
  2498. A(kJ%,z%,1)+=1
  2499. :A(Rl%,z%,0)=Iy:A(kJ%,z%,0)=Iy:
  2500. A=(C-S)/&F:
  2501. A>0.5
  2502. (A+0.5)
  2503. d(A):A=
  2504. (A/l)*l
  2505. My(S,U,A):C=
  2506. W_(C,U,A):
  2507. uy%,c$)
  2508. uy%>31
  2509. 7'J$=
  2510. (31+1):
  2511. A("GTS"),"",VJ%):=-1
  2512. :$((Z%(V%)+684)+(44*uy%))=c$:uy%+=1:=0
  2513. uy%,F)
  2514. uy%>31
  2515. :'J$=
  2516. (31+1):
  2517. A("GTS"),"",VJ%):=-1
  2518. :|((Z%(V%)+684)+(44*uy%))=F:uy%+=1:=0
  2519. iJ:C$=" dummy":Z_%=0:
  2520. P%-1:S$=$(
  2521. M(U%,!b%)+yy%):t$=
  2522. G(S$):S$=
  2523. S$,30):r%=0:K%=
  2524. (r%<Z_%)
  2525. S$=S$(r%)
  2526. :r%+=1:
  2527. S$(Z_%)=S$:Z_%+=1
  2528. :ml%=
  2529. :S=1:C=Z_%:
  2530. f(F$,S$())
  2531. S$(r%)<>F$:r%+=1:
  2532. C%(0,0)=-1
  2533. A(A%(29),6-1,"")
  2534. A(A%(29),6-1,$((S%!(C%(0,0)*4))+8))
  2535. C%(1,0)<0
  2536. G%(1,0)=4
  2537. A(A%(29),8-1,"")
  2538. A(A%(29),8-1,$((S%!(C%(1,0)*4))+8))
  2539. A(A%(4),4,$(Z%(V%)+8)):
  2540. A(A%(4),5,$(Z%(V%)+264)):
  2541. A(A%(4),6,$(Z%(V%)+520)):
  2542. A(A%(4),7,$(Z%(V%)+552)):
  2543. Z(A%(4),&A,(Z%(V%)!605)
  2544. 256):
  2545. Bi$(Z%(V%)+8)=
  2546. Z(A%(4),4):$(Z%(V%)+264)=
  2547. Z(A%(4),5):$(Z%(V%)+520)=
  2548. Z(A%(4),6):$(Z%(V%)+552)=
  2549. Z(A%(4),7):Z%(V%)!605=((Z%(V%)!605)
  2550. 256))
  2551. S(A%(4),&A)):Z%(V%)!605=(Z%(V%)!605)
  2552. fJ(V%):
  2553. k(V%):
  2554. Yi:Z%(V%)!605=((Z%(V%)!605)
  2555. &80))
  2556. S(A%(34),2)):J%!0=A%(35):
  2557. Ay%=0
  2558. Z%(V%)!668:J%!4=(Ay%*7)+1:
  2559. &400CE,,J%:!(Z%(V%)+684+(44*Ay%)+36)=J%!28:J%!4=(Ay%*7)+3:
  2560. &400CE,,J%:!(Z%(V%)+684+(44*Ay%)+32)=J%!28:J%!4=(Ay%*7)+5:
  2561. &400CE,,J%
  2562. L4!(Z%(V%)+684+(44*Ay%)+40)=J%!28:
  2563. k(V%):
  2564. Q(A%(&D),I$+" *")
  2565. Q(A%(&D),I$)
  2566. fJ(u%)
  2567. $(Z%(u%)+8)<>""
  2568. S W$=
  2569. A("GTi")+" "+$(Z%(u%)+8)
  2570. (u%):W$=
  2571. A("GTi")+" "+
  2572. A("UnT")
  2573. (F%(p%)
  2574. W$+=" *"
  2575. Q(J%(u%),W$):
  2576. Q(A%(7),
  2577. A("NFY")
  2578. A("NDa")
  2579. A("NOR")+
  2580. (P%):W$+=" "+
  2581. A("Sub")+Fy$+" ":
  2582. _,W$+=" "+
  2583. A("ASr")+": "+$((S%!(Sl%*4))+8)
  2584. W$+=" "+
  2585. A("Sor")+": "+$((S%!(Sl%*4))+8)
  2586. (l_%?2)<>&FF
  2587. W$+="+"
  2588. W$+=" "+
  2589. A("UnS")
  2590. A(p%,Jy%,B$)!J%=p%:J%!4=Jy%:
  2591. &400CE,,J%:$(J%!28)=
  2592. B$,(J%!36)-1):J%!8=0:J%!&C=0:
  2593. &400CD,,J%:
  2594. Oy(p%,Jy%,c$)!J%=p%:J%!4=Jy%:
  2595. &400CE,,J%:$(J%!28)=c$:J%!32=j_%:J%!36=
  2596. (c$):
  2597. &400C4,,J%:J%!4=p%:
  2598. &400C2,Jy%,J%+4:J%!4=Jy%:J%!8=0:J%!&C=0:
  2599. &400CD,,J%:
  2600. Z(p%,Jy%)!J%=p%:J%!4=Jy%:
  2601. &400CE,,J%:=$(J%!28)
  2602. Z(p%,Jy%,pB%)J%!0=p%:J%!4=Jy%:J%!8=(pB%<>0)
  2603. (1<<21):J%!&C=1<<21:
  2604. &400CD,,J%:
  2605. _(D$,MO%)
  2606. dy%,zy$,I%,uJ%,xu%:MO%=&E:
  2607. dy%<>256
  2608. yy(dy%)
  2609. A("SyF")
  2610. &40081,,D$,MO%*16,MO%*16,0,0
  2611. &40084,dy%
  2612. ,,,ZO%:zy$="0123456789-.":dl%=0:
  2613. (zy$):
  2614. &4008E,dy%,
  2615. zy$,I%,1)),16
  2616. ,uJ%,,xu%:
  2617. xu%-uJ%>dl%
  2618. dl%=xu%-uJ%
  2619. ZO%=16:dl%=16
  2620. :va%?dy%+=1:=dy%
  2621. yy(dy%)
  2622. &40082,dy%:va%?dy%-=1:
  2623. ay%,pJ%:
  2624. ay%=0
  2625. va%?ay%>0
  2626. pJ%=1
  2627. va%?ay%:
  2628. &40082,ay%:
  2629. ay%,pJ%:
  2630. yy(X_%):X_%=
  2631. _(N$,&E):
  2632. T(A%(7),w_%,N$,yB%,19):
  2633. T(A%(7),bJ%,N$,X_%,23):
  2634. T(A%(7),iy%,N$,X_%,23):
  2635. T(A%(7),ry%,N$,X_%,7):
  2636. T(A%(7),qy%+4,N$,X_%,&D):
  2637. z!S_%=
  2638. h_:=S_%+
  2639. Ay,"A"))+34
  2640. :=Qy%
  2641. R(F$)
  2642. X_%<>256
  2643. &400A1,X_%,F$,1<<8,&7FFFFFFF,&7FFFFFFF
  2644. ,,,Qy%:
  2645. &40088,,Qy%,0
  2646. (F$)*ZO%
  2647. :=Qy%
  2648. nu(p%,Jy%,To%)J%!0=p%:J%!4=Jy%:J%!8=(To%<<24)+(1<<6):J%!&C=(&FF<<24)+(1<<6):
  2649. &400CD,,J%:
  2650. Hu(p%,Jy%,ZZ%)J%!0=p%:J%!4=Jy%:J%!8=(ZZ%<<24):J%!&C=(&FF<<24)+(1<<6):
  2651. &400CD,,J%:
  2652. P(p%,Jy%)J%!0=p%:J%!4=Jy%:J%!8=1<<22:J%!&C=1<<22:
  2653. &400CD,,J%:
  2654. S(p%,Jy%)J%!0=p%:J%!4=Jy%:J%!8=0:J%!&C=1<<22:
  2655. &400CD,,J%:
  2656. S(p%,Jy%)!J%=p%:J%!4=Jy%:
  2657. &400CE,,J%:=(J%!24
  2658. (1<<21))<>0
  2659. L_%:L_%=
  2660. ("<DataBase$Dir>.Preference"):
  2661. L_%<>0
  2662. WGi%=(
  2663. #L_%)<>0:Hi%=(
  2664. #L_%)<>0:sa%=(
  2665. #L_%)<>0:xa%=(
  2666. #L_%)<>0:a$=
  2667. #L_%:N$=
  2668. #L_%:
  2669. :sa%=
  2670. :xa%=
  2671. :Hi%=
  2672. A("GraphFont"):N$=
  2673. A("CardFont")
  2674. z_:X_%=
  2675. _(N$,&E):
  2676. T(A%(7),w_%,N$,yB%,19):
  2677. T(A%(7),bJ%,N$,X_%,23):
  2678. T(A%(7),iy%,N$,X_%,23):
  2679. T(A%(7),ry%,N$,X_%,7):
  2680. T(A%(7),qy%+4,N$,X_%,&D):
  2681. L_%:L_%=
  2682. ("<DataBase$Dir>.Preference"):
  2683. #L_%,Gi%:
  2684. #L_%,Hi%:
  2685. #L_%,sa%:
  2686. #L_%,xa%:
  2687. #L_%,a$:
  2688. #L_%,N$:
  2689. #L_%:
  2690. QJ:Gi%=
  2691. S(A%(19),0):Hi%=
  2692. S(A%(19),1):sa%=
  2693. S(A%(19),2):xa%=
  2694. S(A%(19),3):a$=dy$:N$=Oy$:X_%=
  2695. _(N$,&E):
  2696. T(A%(7),w_%,N$,yB%,19):
  2697. T(A%(7),bJ%,N$,X_%,23):
  2698. T(A%(7),iy%,N$,X_%,23):
  2699. T(A%(7),ry%,N$,X_%,7):
  2700. T(A%(7),qy%+4,N$,X_%,&D):Vu%=
  2701. &400D1,A%(7),0,-&FFFFFFF,&FFFF,0:
  2702. sy(D$,
  2703. dy%<>256
  2704. yy(dy%)
  2705. A("SyF")
  2706. %dy%=
  2707. _(D$,&C):
  2708. nu(A%(19),Jy%,dy%)
  2709. dy%=256:
  2710. Hu(A%(19),Jy%,23)
  2711. A(A%(19),Jy%,
  2712. n_(D$)):
  2713. T(p%,J%,D$,
  2714. dy%,vO%)
  2715. A("SyF")
  2716. Hdy%=
  2717. _(D$,&E):J%!16=(J%!16)
  2718. (1<<6):J%!16=((J%!16)
  2719. &FFFFFF)
  2720. (dy%<<24)
  2721. dy%=256:J%!16=(J%!16)
  2722. (1<<6)):J%!16=((J%!16)
  2723. &FFFFFF)
  2724. (vO%<<24)
  2725. sy(N$,Y_,Vr%):
  2726. sy(a$,v_,Ak%):
  2727. Z(A%(19),0,Gi%):
  2728. Z(A%(19),1,Hi%):
  2729. Z(A%(19),2,sa%):
  2730. Z(A%(19),3,xa%):Oy$=N$:dy$=a$:
  2731. Da(p%,d$,eJ%)
  2732. ((Z%!8)
  2733. (64+16))
  2734. #k`%=p%:wl%=eJ%:
  2735. vl(p%,Z%!16,d$)
  2736. Z%!16
  2737. bJ(p%,eJ%)
  2738. &400D4,,-1:
  2739. J(A%(p%))
  2740. bJ(p%,eJ%)U$=
  2741. Z(A%(p%),1):
  2742. U$,".")
  2743. wl%=eJ%:
  2744. v_(p%,U$)
  2745. !L%=A%(p%):
  2746. &400CB,,L%:
  2747. &400D4,,-1:
  2748. &400C5,,L%:
  2749. A("TSa")
  2750. vl(p%,Jy%,G$)
  2751. Uy%,h%:Z%!0=A%(p%):
  2752. &400CB,,Z%:Uy%=Z%!4-Z%!20:h%=Z%!16-Z%!24:J%!0=A%(p%):J%!4=Jy%:
  2753. &400CE,,J%:J%!8+=Uy%:J%!&C+=h%:J%!16+=Uy%:J%!20+=h%:
  2754. &42400,&C5,1,G$,J%+8:
  2755. G(jl%,Z%!0-64,96+(44*4))
  2756. a(A%(7)):
  2757. a(A%(16)):
  2758. a(A%(&D))
  2759. s(b`%)
  2760. b`%<>Da%
  2761. Da%=b`%:
  2762. uy$="*"
  2763. Z(A%(22),18):
  2764. Q(A%(22),
  2765. A("EdS")+" "+uy$)
  2766. Jn%,Lo%,ea%,f%,XJ%,OO%,Gn%:
  2767. (((Z%!4)+5)
  2768. 2Gn%=0:XJ%=0:Lo%=(Z%!4)
  2769. Z(A%(26),Z%!4)="0"
  2770. A(A%(26),Z%!4,"1")
  2771. :Jn%=
  2772. Z(A%(26),Z%!4)):
  2773. Jn%=0
  2774.     Jn%=1
  2775. Jn%>R%
  2776. A(A%(26),Z%!4,
  2777. (R%)):Jn%=R%
  2778. XJ%=1
  2779. R%:f%=0:
  2780. ea%=0
  2781. R%-1:
  2782. Z(A%(26),(ea%*6)+1))=XJ%
  2783.     f%+=1
  2784. Gn%=XJ%
  2785. OO%=XJ%
  2786. Gn%<OO%
  2787.     q%=-1
  2788. ea%=0
  2789. R%-1:
  2790. XJ%=Gn%
  2791. q%*-1:
  2792. Z(A%(26),(ea%*6)+1))=XJ%)
  2793. (ea%<>Lo%)
  2794. A(A%(26),(ea%*6)+1,
  2795. (XJ%+q%))
  2796. b`%,Jy%,M%:Jy%=((Z%!16)+1)
  2797. 6:M%=((Z%!16)+1)
  2798. ):b`%=
  2799. S(A%(26),Z%!16)
  2800. Z(A%(26),Z%!16,b`%)
  2801. Z(A%(26),Z%!16,
  2802. Z(A%(26),(Z%!16)+1,
  2803. Z(A%(26),Z%!16,
  2804. Z(A%(26),(Z%!16)-1,
  2805. M_$,Jy%,ko%:
  2806. Z%!16
  2807. J(A%(22)):
  2808. J(A%(26))
  2809. 21:ko%=Z%!8:
  2810. X_(Ll%):
  2811. ko%=4
  2812. J(A%(22)):
  2813. J(A%(26))
  2814. Z%!8=4
  2815. J(A%(22)):
  2816. J(A%(26))
  2817. Jy%=1
  2818. A(A%(26),(Jy%*6)-1,""):
  2819. Z(A%(26),(Jy%*6)-4,
  2820. Z(A%(26),(Jy%*6)-3,
  2821. Z(A%(26),(Jy%*6)-2,
  2822. A(A%(26),(Jy%*6)-5,
  2823. (Jy%)):
  2824. 20:FO%=22:
  2825. gy,Z%!0,Z%!4)
  2826. Z%!16>=0
  2827. Z%!16<=&B
  2828. A("Op"+
  2829. ((Z%!16)-0)))
  2830. Pl(m$)
  2831. F$,S`%:
  2832. &400D3,,Z%:
  2833. Z%!0=A%(26)
  2834. (((Z%!4)+1)
  2835. Z(A%(26),Z%!4):
  2836. A(A%(26),Z%!4,
  2837. F$,Z%!20)+m$+
  2838. F$,(Z%!20)+1),S`%)):
  2839. &400D2,A%(26),Z%!4,,,-1,(Z%!20)+
  2840. (m$)-S`%:
  2841. c_(F$,
  2842. pi%:pi%=1:S`%=0:
  2843. F$,"  ",pi%):
  2844. pi%>0
  2845. F$,pi%)+
  2846. F$,pi%+2):S`%+=1
  2847. pi%=0
  2848. >&64:
  2849. F$,1)=" "
  2850. F$,2):S`%+=1
  2851. Z%!16=&A
  2852. s_(A%(&F)):Fa%=A%(24)
  2853. Z%!16<>-1
  2854. Z(A%(25),4,1):
  2855. Z%!16
  2856. J(By%):s_%=-1
  2857. 1:du%=By%:
  2858. Y(-1,0),Z%!0,Z%!4)
  2859. s_(A%(&F)):Fa%=By%
  2860. vJ(s_%)
  2861. vJ(M%)ny%=M%:
  2862. CJ:L%!0=A%(24):
  2863. &400CB,,L%:
  2864. N(A%(25),L%!4,L%!16-Ri%,-1):
  2865. Q(A%(24),
  2866. A("Fil")+" "+$((S%!(ny%*4))+8)):
  2867. ?((S%!(ny%*4))+277)=2
  2868. 7n_=1:
  2869. Z(A%(25),4,
  2870. P(A%(25),4):
  2871. A(A%(25),5,
  2872. (Xy))
  2873. n_=5:Ly%=&A^(?((S%!(ny%*4))+279)):
  2874. Z(A%(25),4,
  2875. S(A%(25),4):
  2876. A(A%(25),5,
  2877. (Xy/Ly%))
  2878. A(A%(25),8,
  2879. (n_)):
  2880. F%:F%=
  2881. F(ny%):
  2882. ?((S%!(ny%*4))+277)=2
  2883. :Py=|(
  2884. M(P%-1,_%!(ny%*4))+F%):Xy=|(
  2885. M(0,_%!(ny%*4))+F%)
  2886. Py=!(
  2887. M(P%-1,_%!(ny%*4))+F%):Xy=!(
  2888. M(0,_%!(ny%*4))+F%)
  2889. Ly%,b_:Xn%=
  2890. ?((S%!(ny%*4))+277)=1
  2891. _Ly%=&A^(?((S%!(ny%*4))+279)):A=
  2892. Z(A%(25),8))*Ly%)+0.5):b_=
  2893. Z(A%(25),5))*Ly%)+0.5)
  2894. Z(A%(25),8)):b_=
  2895. Z(A%(25),5))
  2896. i_(Xy,b_,A)
  2897. ?((S%!(ny%*4))+277)=1
  2898. A=&A^(?((S%!(ny%*4))+279))
  2899. ll%,gu%,ai%,A,U:ai%=Ri%:ll%=
  2900. S(A%(25),4):U=
  2901. (1+((Py-U+A-1)/A))<&7FFFFFFF
  2902. 4gu%=1+((Py-U+A-1)/A):ai%+=gu%*40:
  2903. _(A%(24),-ai%)
  2904. :L%!0=A%(24):
  2905. &400CB,,L%:L%!28=A%(25):
  2906. &400C5,,L%:
  2907. &400D1,A%(24),0,-&FFFFFFF,&FFFF,0:
  2908. Z%!16
  2909. A%(24):
  2910. J(A%(&F))
  2911. `%,gu%,lJ%:
  2912. Z%!16
  2913. Z(A%(M),18))>Qi%
  2914. Z(A%(M),18))<1
  2915. A("PIR")
  2916. Z(A%(M),20))>Pi%
  2917. Z(A%(M),20))<1
  2918. A("PIC")
  2919. Z(A%(M),2))=0
  2920. A("NoC")
  2921. J(A%(M)):
  2922. &400D4,,-1
  2923. S(A%(M),24)
  2924. J(A%(M)):
  2925. &400D4,,-1
  2926. Z(A%(M),4,
  2927. Z(A%(M),5,
  2928. U(A%(M),2,1,99,1)
  2929. U(A%(M),2,-1,99,1)
  2930. U(A%(M),18,1,Qi%,1)
  2931. U(A%(M),18,-1,Qi%,1)
  2932. U(A%(M),20,1,Pi%,1)
  2933. U(A%(M),20,-1,Pi%,1)
  2934. A(A%(M),20,
  2935. (Pi%)):
  2936. A(A%(M),18,
  2937. (Qi%))
  2938. U(A%(M),32,1,999,1)
  2939. U(A%(M),32,-1,999,1)
  2940. Z%!16>=38
  2941. Z%!16<=41
  2942. A(A%(M),32,
  2943. Z(A%(M),Z%!16))
  2944. U(p%,Jy%,vi%,Ty%,Zo%)
  2945. `%:`%=
  2946. Z(p%,Jy%))+vi%:
  2947. `%>=Zo%
  2948. `%<=Ty%
  2949. A(p%,Jy%,
  2950. (`%))
  2951. `%>=Ty%
  2952. A(p%,Jy%,
  2953. (Ty%))
  2954. A(p%,Jy%,
  2955. (Zo%))
  2956. jl:Z%!0=56:Z%!&C=0:Z%!16=&80142:Z%!36=&400:Z%!40=&FFF:$(Z%+44)="TextPrint"+
  2957. &400E7,18,Z%,0:sJ%=Z%!8:lB%=sJ%:
  2958. Ha:Z%!0=56:Z%!&C=0:Z%!16=&80142:Z%!36=&400:Z%!40=&AFF:$(Z%+44)="GraphPrint"+
  2959. &400E7,18,Z%,0:sJ%=Z%!8:an%=sJ%:
  2960. Bu:Z%!0=56:Z%!&C=0:Z%!16=&80142:Z%!36=&400:Z%!40=&FFF:$(Z%+44)="FreqPrint"+
  2961. &400E7,18,Z%,0:sJ%=Z%!8:sO%=sJ%:
  2962. _i:Z%!0=56:Z%!&C=0:Z%!16=&80142:Z%!36=&400:Z%!40=&FFF:$(Z%+44)="StatsPrint"+
  2963. &400E7,18,Z%,0:sJ%=Z%!8:jB%=sJ%:
  2964. Ou(sJ%)
  2965. sJ%=an%
  2966. BJ(g_%,"Printer:",0,1):Z%!&C=Z%!8:Z%!16=&80146:
  2967. &400E7,17,Z%,Z%!4
  2968. bl(sJ%)
  2969. lB%:Vy%=
  2970. ($(Z%+44)):
  2971. Vy%=0
  2972. fy,$(Z%+44)+
  2973. A("COF")
  2974. fu(Vy%):
  2975. #Vy%:Z%!&C=Z%!8:Z%!16=3:
  2976. &400E7,17,Z%,Z%!4
  2977. -1:Vy%=
  2978. ($(Z%+44)):
  2979. Vy%=0
  2980. fy,$(Z%+44)+
  2981. A("COF")
  2982. Nl(Vy%):
  2983. #Vy%:Z%!&C=Z%!8:Z%!16=3:
  2984. &400E7,17,Z%,Z%!4
  2985. jB%:Vy%=
  2986. ($(Z%+44)):
  2987. Vy%=0
  2988. fy,$(Z%+44)+
  2989. A("COF")
  2990. `J(Vy%):
  2991. #Vy%:Z%!&C=Z%!8:Z%!16=3:
  2992. &400E7,17,Z%,Z%!4
  2993. sO%:Vy%=
  2994. ($(Z%+44)):
  2995. Vy%=0
  2996. fy,$(Z%+44)+
  2997. A("COF")
  2998. Ma(Vy%):
  2999. #Vy%:Z%!&C=Z%!8:Z%!16=3:
  3000. &400E7,17,Z%,Z%!4
  3001. BJ(g_%,$(Z%+44),0,1):Z%!&C=Z%!8:Z%!16=3:Z%!40=&FF4:
  3002. &400E7,17,Z%,Z%!4
  3003. za(Vy%)
  3004. #Vy%,
  3005. A("DNL")+
  3006. Z(A%(&D),3)+"  "+g$:
  3007. #Vy%,
  3008. #Vy%,
  3009. (27)+
  3010. (&88)+
  3011. Tl%*lJ%,"*")+Iy$:
  3012. g_(d%)
  3013. A("DNL")+
  3014. Z(A%(&D),3)+"  "+g$:
  3015. #d%,"Value"+
  3016. 9," ")+"Frequency"+
  3017. 2," ")+"% Frequency"+
  3018. 9," ")+"Cumulative f":
  3019. (27)+
  3020. (&88)+
  3021. 50," ")+Iy$:DO%=3:
  3022. `J(Vy%)
  3023. #Vy%,
  3024. A("DNL")+
  3025. Z(A%(&D),3)+"  "+g$:
  3026. #Vy%,"":Ro%=?((S%!(s_%*4))+277):
  3027. #Vy%,"Total number of records: "+
  3028. (P%):
  3029. #Vy%,"Field name: "+$((S%!(s_%*4))+8);:
  3030. #Vy%,
  3031. A("Num"):
  3032. #Vy%,
  3033. A("Ran")+
  3034. Z(By%,5):
  3035. #Vy%,
  3036. A("Mea")+
  3037. Z(By%,&C):
  3038. #Vy%,
  3039. A("Med")+
  3040. Z(By%,&D):
  3041. #Vy%,
  3042. A("Mod")+
  3043. Z(By%,&E):
  3044. #Vy%,
  3045. A("LoQ")+
  3046. Z(By%,7):
  3047. #Vy%,
  3048. A("UpQ")+
  3049. Z(By%,16):
  3050. #Vy%,
  3051. A("IQR")+
  3052. Z(By%,&B)
  3053. #Vy%,
  3054. A("Swi"):
  3055. #Vy%,
  3056. Z(By%,4)+": "+
  3057. Z(By%,5):
  3058. #Vy%,
  3059. Z(By%,6)+": "+
  3060. Z(By%,7)
  3061. #Vy%,&C:
  3062. Ma(Vy%)
  3063. R_%,w%,ll%,U,J,fy%,`y%,Lk%,d_%,DO%,R$:
  3064. A("WiV"))
  3065. :ll%=
  3066. S(A%(25),4):U=
  3067. u:R_%=_%!(ny%*4):w%=
  3068. F(ny%):fy%=0:Lk%=((Py-U+A-1)/A):J=U:
  3069. ?((S%!(ny%*4))+277)=2
  3070. x(R_%,w%,J-A,0,P%-1)
  3071. z(R_%,w%,J-A,0,P%-1)
  3072. g_(Vy%):
  3073. d_%=0
  3074. DO%=mO%
  3075. #Vy%,&C:
  3076. g_(Vy%)
  3077. 48," "):
  3078. R$)=">="+
  3079. (J-A)+" <="+
  3080. R$,&F)=
  3081. (P%-1-`y%):
  3082. R$,26)=
  3083. (((P%-1-`y%)/P%)*&64):
  3084. R$,46)=
  3085. ?((S%!(ny%*4))+277)=2
  3086. x(R_%,w%,J,`y%,P%-1)
  3087. z(R_%,w%,J,`y%,P%-1)
  3088. R$)=">="+
  3089. (J-A)+" <"+
  3090. (fy%-`y%)
  3091. R$,&F)=
  3092. (fy%-`y%):
  3093. R$,26)=
  3094. (((fy%-`y%)/P%)*&64):
  3095. R$,42)=
  3096. (fy%+1)
  3097. R$,&F)="-":
  3098. R$,26)="-":
  3099. R$,46)=
  3100. (fy%+1)
  3101. :`y%=fy%
  3102. s(R_%,w%,J,fy%,P%-1):
  3103. ec`y%=
  3104. o(R_%,w%,J,fy%,P%-1):
  3105. R$,&F)=
  3106. (fy%-`y%+1):
  3107. R$,26)=
  3108. (((fy%-`y%+1)/P%)*&64):
  3109. R$,46)=
  3110. (fy%+1)
  3111. R$,&F)="-":
  3112. R$,26)="-":
  3113. R$,46)=
  3114. (fy%+1)
  3115. #Vy%,R$:J+=A:DO%+=1:
  3116. #Vy%,&C:
  3117. Nl(Vy%)
  3118. fu(Vy%)
  3119. n%,m%,Hn%,gu%,lJ%:
  3120. iu(Vy%,gu%,lJ%)
  3121. il(Vy%)
  3122. il(Vy%)
  3123. L%():
  3124. L%(R%):ur%=n%:_e%=L%(R%)
  3125. Hn%=0
  3126. v_(Py%)
  3127. ((?Py%)<>0)
  3128. (P$)<256):P$+=
  3129. (?Py%):Py%+=1:
  3130. ul(U$)
  3131. U%,M%,SJ%:
  3132. &406C0:d%=
  3133. (U$):
  3134. ("Remove "+U$):
  3135. A("SaC")
  3136. A("RcL");:
  3137. R%-1:
  3138. #d%,","+$((S%!(M%*4))+8);:
  3139. #d%,"":
  3140. P%-1:
  3141. (U%+1);:
  3142. R%-1:hy%=
  3143. M(U%,!b%)+
  3144. F(M%):
  3145. ?((S%!(M%*4))+277)
  3146. #d%,","""+($hy%)+"""";
  3147. 1:SJ%=&A^?((S%!(M%*4))+279):
  3148. #d%,","+
  3149. ((!hy%)/SJ%);
  3150. #d%,","+
  3151. (|hy%);
  3152. ?hy%<>0
  3153. #d%,","""+$((S%!(M%*4))+294)+"""";
  3154. #d%,","""+$((S%!(M%*4))+281)+"""";
  3155. #d%,"":
  3156. 8,18,U$,&DFE:
  3157. &406C1:
  3158. hl(U$)
  3159. U%,M%,T$,cy$,M$,Fy%,SJ%,P`%:
  3160. &406C0:d%=
  3161. (U$):
  3162. ("Remove "+U$):
  3163. A("SaC")
  3164. A("DNL")+
  3165. Z(A%(&D),3)+"  "+g$:
  3166. P%-1:
  3167. #d%,"":Fy%=
  3168. M(U%,!b%):
  3169. R%-1:T$=
  3170. 3," "):
  3171. (U%+1)
  3172. :cy$=
  3173. &C," "):
  3174. cy$)=$((S%!(M%*4))+8):hy%=Fy%+
  3175. F(M%):
  3176. ?((S%!(M%*4))+277)
  3177. 0:M$=($hy%)
  3178. 1:SJ%=&A^?((S%!(M%*4))+279):P`%=@%:
  3179. ny(M%):
  3180. (?((S%!(M%*4))+278)
  3181. >M$=$((S%!(M%*4))+289)+
  3182. ((!hy%)/SJ%)+" "+$((S%!(M%*4))+301)
  3183. ((!hy%)/SJ%)
  3184. :@%=P`%
  3185. (?((S%!(M%*4))+278)
  3186. :M$=($((S%!(M%*4))+291))+
  3187. (|hy%)+" "+$((S%!(M%*4))+303)
  3188. (|hy%)
  3189. ?hy%<>0
  3190. M$=$((S%!(M%*4))+294)
  3191. M$=$((S%!(M%*4))+281)
  3192. #d%,T$+cy$+M$:
  3193. 8,18,U$,&FFF:
  3194. &406C1:
  3195. _a(U$)
  3196. U%,M%,T$,cy$,M$,Fy%,SJ%,P`%:
  3197. &406C0:d%=
  3198. (U$):
  3199. ("Remove "+U$):
  3200. A("SaC")
  3201. #d%,"{"+
  3202. (&A)+"define style ""Database Ruler"";"+
  3203. (&A)+" leftmargin 113.4pt;"+
  3204. (&A)+" rightmargin 0pt;"+
  3205. (&A)+" returnmargin 0pt;":
  3206. #d%," autoparagraph;"+
  3207. (&A)+" tabs 28.3pt,113.4pt,216pt,288pt,360pt,432pt,504pt,576pt;"+
  3208. (&A)+" menuitem on}";
  3209. #d%,"{fontsize 14pt}"+g$+"{fontsize}":
  3210. #d%,"{""Main Heading"" on}"+
  3211. Z(A%(&D),3)+"{""Main Heading"" off}":
  3212. v+"{""Database Ruler"" on}";:
  3213. P%-1:
  3214. #d%,"":Fy%=
  3215. M(U%,!b%):
  3216. R%-1:
  3217. #d%,"{italic on}{bold on}"+
  3218. (U%+1)+"{tab}{italic}";
  3219. #d%,"{tab}{bold on}";
  3220. :hy%=Fy%+
  3221. F(M%):
  3222. ?((S%!(M%*4))+277)
  3223. 0:M$=($hy%)
  3224. 1:SJ%=&A^?((S%!(M%*4))+279):P`%=@%:
  3225. ny(M%):
  3226. (?((S%!(M%*4))+278)
  3227. >M$=$((S%!(M%*4))+289)+
  3228. ((!hy%)/SJ%)+" "+$((S%!(M%*4))+301)
  3229. ((!hy%)/SJ%)
  3230. :@%=P`%
  3231. (?((S%!(M%*4))+278)
  3232. :M$=($((S%!(M%*4))+291))+
  3233. (|hy%)+" "+$((S%!(M%*4))+303)
  3234. (|hy%)
  3235. ?hy%<>0
  3236. M$=$((S%!(M%*4))+294)
  3237. M$=$((S%!(M%*4))+281)
  3238. #d%,$((S%!(M%*4))+8)+"{bold}{tab}"+M$:
  3239. 8,18,U$,&FFF:
  3240. &406C1:
  3241. iu(Vy%,gu%,lJ%)
  3242. mB%,i$,F$,T$:mB%=
  3243. Ay:rn%=n%:
  3244. za(Vy%)
  3245. :ka%=rn%:
  3246. R%-1:F$="":F%=
  3247. F(M%):Iy%=?((S%!(M%*4))+277):`a%=ka%:
  3248. M(`a%,!b%)+F%:T$=
  3249. 3," "):
  3250. (`a%+1)
  3251. :F$+=yy$+T$:T$=
  3252. &C," "):
  3253. T$)=$((S%!(M%*4))+8):F$+=T$+" "+Iy$:
  3254. mB%+16>Tl%
  3255. Tl%-16," ")
  3256. mB%," ")
  3257. ($hy%)>
  3258. #Vy%,F$+
  3259. $hy%,
  3260. (T$))+
  3261. (&D);:F$=
  3262. &F," "):i$=
  3263. $hy%,
  3264. (T$)+1):
  3265. (i$)+&F>Tl%:
  3266. #Vy%,
  3267. &F," ")+
  3268. i$,Tl%-&F)+
  3269. (&D);:i$=
  3270. i$,Tl%-&E):
  3271. :T$=i$
  3272. T$)=($hy%)
  3273. (!hy%)
  3274. (|hy%)
  3275. ?hy%<>0
  3276. T$)=$((S%!(M%*4))+294)
  3277. T$)=$((S%!(M%*4))+281)
  3278. :F$+=T$:`a%+=1:
  3279. `a%>=(ka%+lJ%)
  3280. `a%>m%:
  3281. #Vy%,F$+
  3282. (&D);:
  3283. #Vy%,"":ka%+=lJ%:
  3284. ka%>=(rn%+(gu%*lJ%))
  3285. ka%>m%:rn%+=((gu%+1)*lJ%):
  3286. #Vy%,&C:
  3287. rn%>m%:
  3288. A(A%(M),2,"1"):
  3289. A(A%(M),6,"1"):
  3290. A(A%(M),8,
  3291. (P%)):
  3292. Z(A%(M),4,
  3293. Z(A%(M),5,
  3294. Z(A%(M),&F,
  3295. Z(A%(M),9,
  3296. Z(A%(M),24,
  3297. Z(A%(M),&B,
  3298. Z(A%(M),&C,
  3299. ):Tl%=
  3300. t_:nO%=Tl%*7200:Pi%=(qn%-dn%)/nO%:
  3301. (qn%-dn%)<nO%
  3302. Tl%=((qn%-dn%)/7200)-1
  3303. Pi%=0
  3304.     Pi%=1
  3305. A(A%(M),20,
  3306. (Pi%)):Be%=R%+2:Po%=Be%*&2EE0:Qi%=(YB%-WO%-&8CA0)/Po%:
  3307. Qi%=0
  3308.     Qi%=1
  3309. A(A%(M),18,
  3310. (Qi%)):
  3311. P(A%(M),22):
  3312. P(A%(M),21):
  3313. P(A%(M),32):
  3314. P(A%(M),35):
  3315. P(A%(M),36):
  3316. P(A%(M),38):
  3317. P(A%(M),40):
  3318. P(A%(M),39):
  3319. P(A%(M),41):
  3320. S(A%(M),22):
  3321. S(A%(M),21):
  3322. S(A%(M),32):
  3323. S(A%(M),35):
  3324. S(A%(M),36):
  3325. S(A%(M),38):
  3326. S(A%(M),40):
  3327. S(A%(M),39):
  3328. S(A%(M),41):
  3329. S(A%(M),4)
  3330. n%=0:m%=P%-1
  3331. Z(A%(M),6))-1:m%=
  3332. Z(A%(M),8))-1:
  3333. n%>m%
  3334. m%>=P%
  3335. A("PgR")
  3336. :Se%=
  3337. S(A%(M),&C):ok%=
  3338. S(A%(M),9):gu%=
  3339. Z(A%(M),18)):lJ%=
  3340. Z(A%(M),20)):
  3341. sy+&80140
  3342. ,,,,Zy$;A_%:
  3343. 5Qo%=
  3344. :Zy$=
  3345. A("NPD"):mO%=0:dn%=0:WO%=0:qn%=0:YB%=0
  3346. sy+&80143
  3347. ,,mO%,dn%,WO%,qn%,YB%
  3348. A(A%(M),16,Zy$):
  3349. A(A%(&F),0,Zy$):
  3350. Cy%,rl%:Cy%=0:
  3351. R%-1:rl%=
  3352. R($((S%!(M%*4))+8))+16:
  3353. rl%>Cy%
  3354. Cy%=rl%
  3355. :=Cy%
  3356. Ay:Cy%=0:
  3357. R%-1:
  3358. ?((S%!(M%*4))+277)
  3359. 0:bl%=?((S%!(M%*4))+278)
  3360. 1,2:bl%=&C
  3361. 3:bl%=
  3362. ($((S%!(M%*4))+281)):
  3363. ($((S%!(M%*4))+294))>bl%
  3364. ($((S%!(M%*4))+294))
  3365. :bl%+=1
  3366. bl%>Cy%
  3367. Cy%=bl%
  3368. :=Cy%
  3369. Z%!16
  3370. s_%=-1
  3371. H_(Z%!0,Z%!4,-1,i%)
  3372. a(By%)
  3373. m_(Z%!0,Z%!4)
  3374. 7,6:du%=&D:
  3375. Y(yn%,0),Z%!0,Z%!4)
  3376. &C:Ll%=_l%:Da%=1:
  3377. oJ(Z%!0,Z%!4)
  3378. &A,5:FO%=&D:
  3379. gy,Z%!0,Z%!4)
  3380. eZ%,U%,au%:Sl%=(l_%?0):
  3381. (l_%?1)=0
  3382. B(_%!(Sl%*4),!b%,P%*2)
  3383. P%-1:?((!b%)+(U%*2))=?((_%!(Sl%*4))+((P%-1-U%)*2)):?((!b%)+(U%*2)+1)=?((_%!(Sl%*4))+((P%-1-U%)*2)+1):
  3384. (l_%?2)<>&FF
  3385. au%=0:
  3386. G_(0,P%-1)
  3387. z(0):
  3388. O(0,0):A`%=
  3389. &400D1,A%(7),0,-&FFFFFFF,&FFFF,0:
  3390. aJ(LB%)
  3391. h%,Nn%,pl%,Zi%:
  3392. LB%>ty%
  3393. Nn%=LB%-1
  3394. Nn%=LB%
  3395. :pl%=
  3396. R_(Nn%):
  3397. Nn%<>pl%
  3398. pl%>Nn%
  3399. pl%-=1
  3400. pl%>=ty%
  3401. pl%+=1
  3402. :L%!0=A%(7):
  3403. &400CB,,L%:h%=L%!24:h%-=(pl%-LB%)*cy%:
  3404. Zy%<>-1
  3405. &400D3,,J%:Zi%=J%!20
  3406. z(pl%):
  3407. O(h%,0):
  3408. Zi%=0
  3409. Z(A%(7),Zy%)="0"
  3410.     Zi%=1
  3411. Z(A%(7),Zy%))
  3412. Z(A%(7),Zy%))
  3413. Zy%<>-1
  3414. &400D2,A%(7),Zy%,,,-1,Zi%
  3415. &400D1,A%(7),0,-&FFFFFFF,&FFFF,0
  3416. wi(M%,U%)
  3417. Zu%,w%:w%=0:Zu%=
  3418. :M%-=1:
  3419. (M%>=0):
  3420. (?((S%!(M%*4))+277)<3)
  3421. (?((S%!(M%*4))+280))
  3422. :w%+=60
  3423. (?((S%!(M%*4))+277)=3)
  3424. w%-=60
  3425. :M%-=1
  3426. U%-=1:w%+=64:M%=R%-1
  3427. q(w%),0):i%=M%:t%=U%:Wl%=!((S%!(M%*4))+277):
  3428. z(z`%)
  3429. (z`%>=0)
  3430. (z`%<=P%)
  3431. t%=z`%:
  3432. Zy%<>-1
  3433. t%=z`%:
  3434. u:vn%=t%
  3435. O_(M%,U%)
  3436. Zu%,w%:w%=0:Zu%=
  3437. :M%+=1:
  3438. (M%<R%):
  3439. (?((S%!(M%*4))+277)<3)
  3440. (?((S%!(M%*4))+280))
  3441. :w%-=60
  3442. (?((S%!(M%*4))+277)=3)
  3443. w%-=60
  3444. :M%+=1
  3445. U%+=1:w%-=64:M%=0
  3446. U%>P%
  3447. q(w%),0):i%=M%:t%=U%:Wl%=!((S%!(M%*4))+277):
  3448. Z%!16
  3449. Z%!8=4
  3450.     ei%=
  3451. J(A%(31))
  3452. Z%!16
  3453. q(cy%),0):
  3454. z(t%-1)
  3455. q(-cy%),0):
  3456. z(t%+1)
  3457. O(0,0):
  3458. O(-cy%*(P%+1),0):
  3459. z(P%)
  3460. Z(A%(16),4,
  3461. ):Yu%=
  3462. Z(A%(16),4,
  3463. ):Yu%=
  3464. A(A%(18),1,I$):
  3465. A(A%(18),0,d$):
  3466. Q(A%(18),
  3467. A("SAs")):AJ%=eJ%:_$=d$:
  3468. G(A%(18),Z%!0,Z%!4)
  3469. My:Bl%=
  3470. G(A%(M),Z%!0,Z%!4)
  3471. Z(A%(16),8)))
  3472. F(zu%)
  3473. zu%<=P%
  3474. zu%>0
  3475. O(-cy%*(zu%-1),0):
  3476. z(zu%-1):
  3477. &400D2,A%(16),8,,,-1,1
  3478. MJ:_y%=i%:
  3479. _y%<0
  3480. _y%>(R%-1)
  3481. 0    _y%=0
  3482. A(A%(27),9,""):
  3483. A(A%(27),4,""):
  3484. A(A%(27),0,$((S%!(_y%*4))+8)):
  3485. ?((S%!(_y%*4))+277)
  3486. A(A%(27),7,
  3487. A("MnuOp6")):RJ%=6
  3488. 2,1,3:
  3489. A(A%(27),7,
  3490. A("MnuOp0")):RJ%=0
  3491. a(A%(27)):
  3492. F%,q%,ye%:
  3493. Z%!16
  3494. &406C0:
  3495. Z%!16=2
  3496. q%=-1
  3497. :ye%=t%:F%=
  3498. F(_y%):
  3499. A_(!b%,F%,s,t%,P%-1,q%)+1)
  3500. Ny(!b%,F%,s,t%,P%-1,q%)+1)
  3501. y_(!b%,F%,s,t%,P%-1,q%)+1)
  3502. sy(!b%,F%,s,t%,P%-1,q%)+1)
  3503. Zy(!b%,F%,s,t%,P%-1,q%)+1)
  3504. Wy(!b%,F%,s,t%,P%-1,q%)+1)
  3505. yy(!b%,F%,PJ%,t%,P%-1,q%)+1)
  3506. U_(!b%,F%,PJ%,t%,P%-1,q%)+1)
  3507. ky(!b%,F%,PJ%,t%,P%-1,q%)+1)
  3508. Cy(!b%,F%,PJ%,t%,P%-1,q%)+1)
  3509. B_(!b%,F%,PJ%,t%,P%-1,q%)+1)
  3510. Z_(!b%,F%,PJ%,t%,P%-1,q%)+1)
  3511. Oy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3512. fy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3513. Ry(!b%,F%,Z$,t%,P%-1,q%)+1)
  3514. S_(!b%,F%,Z$,t%,P%-1,q%)+1)
  3515. hy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3516. ey(!b%,F%,Z$,t%,P%-1,q%)+1)
  3517. wy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3518. Iy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3519. ry(!b%,F%,Z$,t%,P%-1,q%)+1)
  3520. qy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3521. Uy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3522. iy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3523. Q_(!b%,F%,Z$,t%,P%-1,q%)+1)
  3524. ny(!b%,F%,Z$,t%,P%-1,q%)+1)
  3525. Ty(!b%,F%,Z$,t%,P%-1,q%)+1)
  3526. H_(!b%,F%,Z$,t%,P%-1,q%)+1)
  3527. M_(!b%,F%,Z$,t%,P%-1,q%)+1)
  3528. _y(!b%,F%,Z$,t%,P%-1,q%)+1)
  3529. Dy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3530. oy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3531. ly(!b%,F%,Z$,t%,P%-1,q%)+1)
  3532. Ky(!b%,F%,Z$,t%,P%-1,q%)+1)
  3533. By(!b%,F%,Z$,t%,P%-1,q%)+1)
  3534. uy(!b%,F%,Z$,t%,P%-1,q%)+1)
  3535. Gy(!b%,F%,ci%,t%,P%-1,q%)+1)
  3536. Hy(!b%,F%,ci%,t%,P%-1,q%)+1)
  3537. &406C1:
  3538. ye%=t%
  3539. J(A%(28))
  3540. a(A%(27)):
  3541. J(A%(28))
  3542. Z%!16
  3543. Z%!8=4
  3544. t    r`%=
  3545. J(A%(27))
  3546. J(A%(27))
  3547. ?((S%!(_y%*4))+277)
  3548. G(_J%,Z%!0,Z%!4)
  3549. G(Pl%,Z%!0,Z%!4)
  3550. G(Kn%,Z%!0,Z%!4)
  3551. !du%=27:
  3552. Y(-1,0),Z%!0,Z%!4)
  3553. &406C0:La%=?((S%!(_y%*4))+277):
  3554. ((La%=2
  3555. La%=1)
  3556. RJ%>5)
  3557. (La%=3
  3558. RJ%>1)
  3559. A("IvO")
  3560. Z(A%(27),4):
  3561. &406C1:
  3562. f%,F%,f$,Dy$:F%=
  3563. F(_y%):Dy$=Q$:
  3564. Q$,1)=""""
  3565. Q$,1)="""")
  3566. G(Dy$))=0
  3567. (Q$)>0)
  3568. %TB%=
  3569. Q$,1)=""""
  3570. Q$,1)="""")
  3571. (Q$)-2):Q$=Z$
  3572. Z$=Q$
  3573. 0:f%=
  3574. Ly(F%):
  3575. Oy(!b%,F%,Z$,-1,P%-1,1)+1)
  3576. 1:f%=P%-
  3577. Ly(F%):
  3578. fy(!b%,F%,Z$,-1,P%-1,1)+1)
  3579. 2:f%=P%-
  3580. D_(F%):
  3581. Ry(!b%,F%,Z$,-1,P%-1,1)+1)
  3582. 3:f%=
  3583. `y(F%):
  3584. S_(!b%,F%,Z$,-1,P%-1,1)+1)
  3585. 4:f%=
  3586. D_(F%):
  3587. hy(!b%,F%,Z$,-1,P%-1,1)+1)
  3588. 5:f%=P%-
  3589. `y(F%):
  3590. ey(!b%,F%,Z$,-1,P%-1,1)+1)
  3591. 6:f%=
  3592. vy(F%):
  3593. wy(!b%,F%,Z$,-1,P%-1,1)+1)
  3594. 7:f%=
  3595. by(F%):
  3596. Iy(!b%,F%,Z$,-1,P%-1,1)+1)
  3597. 8:f%=
  3598. Vy(F%):
  3599. ry(!b%,F%,Z$,-1,P%-1,1)+1)
  3600. 9:f%=P%-
  3601. vy(F%):
  3602. qy(!b%,F%,Z$,-1,P%-1,1)+1)
  3603. &A:f%=P%-
  3604. by(F%):
  3605. Uy(!b%,F%,Z$,-1,P%-1,1)+1)
  3606. &B:f%=P%-
  3607. Vy(F%):
  3608. iy(!b%,F%,Z$,-1,P%-1,1)+1)
  3609. G(Q$):TB%=
  3610. 0:Z$=Q$:f%=
  3611. Xy(F%):
  3612. Q_(!b%,F%,Z$,-1,P%-1,1)+1)
  3613. 1:Z$=Q$:f%=P%-
  3614. Xy(F%):
  3615. ny(!b%,F%,Z$,-1,P%-1,1)+1)
  3616. 2:Z$=Q$:f%=P%-
  3617. J_(F%):
  3618. Ty(!b%,F%,Z$,-1,P%-1,1)+1)
  3619. 3:Z$=Q$:f%=
  3620. P_(F%):
  3621. H_(!b%,F%,Z$,-1,P%-1,1)+1)
  3622. 4:Z$=Q$:f%=
  3623. J_(F%):
  3624. M_(!b%,F%,Z$,-1,P%-1,1)+1)
  3625. 5:Z$=Q$:f%=P%-
  3626. P_(F%):
  3627. _y(!b%,F%,Z$,-1,P%-1,1)+1)
  3628. 6:Z$=f$:f%=
  3629. C_(F%):
  3630. Dy(!b%,F%,Z$,-1,P%-1,1)+1)
  3631. 7:Z$=f$:f%=
  3632. Jy(F%):
  3633. oy(!b%,F%,Z$,-1,P%-1,1)+1)
  3634. 8:Z$=f$:f%=
  3635. zy(F%):
  3636. ly(!b%,F%,Z$,-1,P%-1,1)+1)
  3637. 9:Z$=f$:f%=P%-
  3638. C_(F%):
  3639. Ky(!b%,F%,Z$,-1,P%-1,1)+1)
  3640. &A:Z$=f$:f%=P%-
  3641. Jy(F%):
  3642. By(!b%,F%,Z$,-1,P%-1,1)+1)
  3643. &B:Z$=f$:f%=P%-
  3644. zy(F%):
  3645. uy(!b%,F%,Z$,-1,P%-1,1)+1)
  3646. gy(f%):
  3647. Xy(F%)
  3648. k%,Fl%:k%=
  3649. l(_%!(_y%*4),F%,Z$,0,P%-1):
  3650. /Fl%=
  3651. w_(_%!(_y%*4),F%,Z$,k%,P%-1):=k%-Fl%+1
  3652. Ly(F%)
  3653. k%,Fl%:k%=
  3654. `(_%!(_y%*4),F%,Z$,0,P%-1):
  3655. /Fl%=
  3656. k_(_%!(_y%*4),F%,Z$,k%,P%-1):=k%-Fl%+1
  3657. C_(F%)
  3658. f%,U%:f%=0:
  3659. P%-1:
  3660. M(U%,_%!(_y%*4))+F%),Z$)
  3661.     f%+=1
  3662. Jy(F%)
  3663. f%,U%:f%=0:
  3664. P%-1:
  3665. M(U%,_%!(_y%*4))+F%),Z$)
  3666.     f%+=1
  3667. zy(F%)
  3668. f%,U%:f%=0:
  3669. P%-1:
  3670. M(U%,_%!(_y%*4))+F%),Z$)
  3671.     f%+=1
  3672. vy(F%)
  3673. f%,U%:f%=0:
  3674. P%-1:
  3675. M(U%,_%!(_y%*4))+F%),
  3676. (Z$))=Z$
  3677.     f%+=1
  3678. by(F%)
  3679. f%,U%:f%=0:
  3680. P%-1:
  3681. M(U%,_%!(_y%*4))+F%),
  3682. (Z$))=Z$
  3683.     f%+=1
  3684. Vy(F%)
  3685. f%,U%:f%=0:
  3686. P%-1:
  3687. M(U%,_%!(_y%*4))+F%),Z$)
  3688.     f%+=1
  3689. J_(F%)=P%-
  3690. u_(_%!(_y%*4),F%,Z$,0,P%-1)
  3691. P_(F%)=
  3692. Y_(_%!(_y%*4),F%,Z$,0,P%-1)+1
  3693. D_(F%)=P%-
  3694. b_(_%!(_y%*4),F%,Z$,0,P%-1)
  3695. `y(F%)=
  3696. O_(_%!(_y%*4),F%,Z$,0,P%-1)+1
  3697. TJ%,f%,F%:TJ%=
  3698. J(Q$):
  3699. A("FNN")
  3700. F(_y%):
  3701. 0:f%=
  3702. X_(F%):
  3703. A_(!b%,F%,s,-1,P%-1,1)+1)
  3704. 1:f%=P%-
  3705. X_(F%):
  3706. Ny(!b%,F%,s,-1,P%-1,1)+1)
  3707. 2:f%=P%-
  3708. Yy(F%):
  3709. Zy(!b%,F%,s,-1,P%-1,1)+1)
  3710. 3:f%=
  3711. my(F%):
  3712. sy(!b%,F%,s,-1,P%-1,1)+1)
  3713. 4:f%=
  3714. Yy(F%):
  3715. Zy(!b%,F%,s,-1,P%-1,1)+1)
  3716. 5:f%=P%-
  3717. my(F%):
  3718. Wy(!b%,F%,s,-1,P%-1,1)+1)
  3719. gy(f%):
  3720. X_(F%)
  3721. k%,Fl%:k%=
  3722. i(_%!(_y%*4),F%,s,0,P%-1):
  3723. .Fl%=
  3724. z_(_%!(_y%*4),F%,s,k%,P%-1):=k%-Fl%+1
  3725. Yy(F%)=P%-
  3726. f_(_%!(_y%*4),F%,s,0,P%-1)
  3727. my(F%)=
  3728. x(_%!(_y%*4),F%,s,0,P%-1)+1
  3729. gy(f%)
  3730. A(A%(27),9,
  3731. A("NnF")):r`%=
  3732. (f%):
  3733. A(A%(27),9,
  3734. A("nFd")):
  3735. A(A%(28),0,
  3736. A("nFd")):
  3737. a(A%(28)):
  3738. Q(A%(28),"'"+Q$+"'")
  3739. TJ%,f%,F%:PJ%=
  3740. J(Q$)*(&A^(?((S%!(_y%*4))+279))):
  3741. A("FNN")
  3742. F(_y%):
  3743. 0:f%=
  3744. N_(F%):
  3745. yy(!b%,F%,PJ%,-1,P%-1,1)+1)
  3746. 1:f%=P%-
  3747. N_(F%):
  3748. U_(!b%,F%,PJ%,-1,P%-1,1)+1)
  3749. 2:f%=P%-
  3750. L_(F%):
  3751. ky(!b%,F%,PJ%,-1,P%-1,1)+1)
  3752. 3:f%=
  3753. xy(F%):
  3754. Cy(!b%,F%,PJ%,-1,P%-1,1)+1)
  3755. 4:f%=
  3756. L_(F%):
  3757. B_(!b%,F%,PJ%,-1,P%-1,1)+1)
  3758. 5:f%=P%-
  3759. xy(F%):
  3760. Z_(!b%,F%,PJ%,-1,P%-1,1)+1)
  3761. gy(f%):
  3762. N_(F%)
  3763. k%,Fl%:k%=
  3764. s(_%!(_y%*4),F%,PJ%,0,P%-1):
  3765. /Fl%=
  3766. o(_%!(_y%*4),F%,PJ%,k%,P%-1):=k%-Fl%+1
  3767. ty(F%)
  3768. f%,U%:f%=0:
  3769. P%-1:
  3770. M(U%,_%!(_y%*4))+F%)=ci%
  3771.     f%+=1
  3772. Gy(O%,F%,`%,c%,Ty%,q%)
  3773. Q%,K%:Q%=c%:K%=c%:
  3774. (K%=c%)
  3775. ((Q%+q%)>=0)
  3776. ((Q%+q%)<=Ty%):Q%+=q%:
  3777. M(Q%,O%)+F%)=`%
  3778.     K%=Q%
  3779. Hy(O%,F%,`%,c%,Ty%,q%)
  3780. Q%,K%:Q%=c%:K%=c%:
  3781. (K%=c%)
  3782. ((Q%+q%)>=0)
  3783. ((Q%+q%)<=Ty%):Q%+=q%:
  3784. M(Q%,O%)+F%)<>`%
  3785.     K%=Q%
  3786. L_(F%)=P%-
  3787. l_(_%!(_y%*4),F%,PJ%,0,P%-1)
  3788. xy(F%)=
  3789. z(_%!(_y%*4),F%,PJ%,0,P%-1)+1
  3790. bu:F%=
  3791. F(_y%):
  3792. C(Q$,$((S%!(_y%*4))+281))=0
  3793.     ci%=0
  3794. C(Q$,$((S%!(_y%*4))+294))=0
  3795.     ci%=1
  3796. A("NSS")
  3797. 0:f%=
  3798. ty(F%):
  3799. Gy(!b%,F%,ci%,-1,P%-1,1)+1)
  3800. 1:f%=P%-
  3801. ty(F%):
  3802. Hy(!b%,F%,ci%,-1,P%-1,1)+1)
  3803. gy(f%):
  3804. Z%!16<>-1
  3805. xy(Z%!16):
  3806. Z%!16
  3807. Ky(Z%!&C,Z%):
  3808. J(Z%!&C)
  3809. a(A%(6))
  3810. Y(A%(5),8),Z%!0,Z%!4):du%=2:fu%=(Z%!16)-1:BJ%=0:__%=0
  3811. 8,&C,16:
  3812. I_(A%(32),
  3813. ),Z%!0,Z%!4):du%=2:fu%=(Z%!16)-1:BJ%=1:__%=((Z%!16)-8)
  3814. Z%!16
  3815. Ky(Z%!&C,Z%):
  3816. J(Z%!&C)
  3817. Y(A%(5),8),Z%!0,Z%!4):du%=2:fu%=(Z%!16)-1:BJ%=0:__%=0
  3818. I_(-1,
  3819. ),Z%!0,Z%!4):du%=29:fu%=(Z%!16)-1:BJ%=1:__%=0
  3820. VJ(M%,X%,Y%,No%)
  3821. Iy%,Ku%:Iy%=?((S%!(M%*4))+277):T%=M%:
  3822. A(A%(5),1,
  3823. (|(Z%(V%)+620))):
  3824. A(A%(5),3,
  3825. (|(Z%(V%)+625))):Ku%=((Z%(V%)?616)
  3826. 1)<>0:
  3827. Q(A%(5),
  3828. A("XFi")+" "+$((S%!(M%*4))+8)):
  3829. Z(A%(5),0,
  3830. S(A%(5),0):
  3831. S(A%(5),1):
  3832. S(A%(5),3):
  3833. Z(A%(5),5,
  3834. P(A%(5),5)
  3835. Z(A%(5),0,Ku%):
  3836. S(A%(5),0):
  3837. S(A%(5),1):
  3838. S(A%(5),3):
  3839. Z(A%(5),5,
  3840. Ku%):
  3841. S(A%(5),5)
  3842. Z(A%(5),0,
  3843. S(A%(5),0):
  3844. P(A%(5),1):
  3845. P(A%(5),3):
  3846. Z(A%(5),5,
  3847. P(A%(5),5)
  3848. Z(A%(5),0,
  3849. S(A%(5),0):
  3850. S(A%(5),1):
  3851. S(A%(5),3):
  3852. Z(A%(5),5,
  3853. P(A%(5),5)
  3854. Z(A%(5),0,Ku%):
  3855. S(A%(5),0):
  3856. S(A%(5),1):
  3857. S(A%(5),3):
  3858. Z(A%(5),5,
  3859. Ku%):
  3860. S(A%(5),5)
  3861. Z(A%(5),0,
  3862. S(A%(5),0):
  3863. P(A%(5),1):
  3864. P(A%(5),3):
  3865. Z(A%(5),5,
  3866. P(A%(5),5)
  3867. Z(A%(5),0,Ku%):
  3868. S(A%(5),0):
  3869. S(A%(5),1):
  3870. S(A%(5),3):
  3871. Z(A%(5),5,
  3872. Ku%):
  3873. S(A%(5),5)
  3874. Z(A%(5),0,
  3875. S(A%(5),0):
  3876. P(A%(5),1):
  3877. P(A%(5),3):
  3878. Z(A%(5),5,
  3879. P(A%(5),5)
  3880. Z(A%(5),0,Ku%):
  3881. S(A%(5),0):
  3882. S(A%(5),1):
  3883. S(A%(5),3):
  3884. Z(A%(5),5,
  3885. Ku%):
  3886. S(A%(5),5)
  3887. Z(A%(5),0,Ku%):
  3888. S(A%(5),0):
  3889. P(A%(5),1):
  3890. P(A%(5),3):
  3891. Z(A%(5),5,
  3892. Ku%):
  3893. S(A%(5),5)
  3894. Z(A%(5),0,
  3895. S(A%(5),0):
  3896. P(A%(5),1):
  3897. P(A%(5),3):
  3898. Z(A%(5),5,
  3899. P(A%(5),5)
  3900. `(A%(5),X%,Y%)
  3901. N(A%(5),X%,Y%,-1)
  3902. kJ(Pk%,X%,Y%,No%)
  3903. M%,Iy%,lu%,Ku%,Ql%,tZ%:
  3904. Pk%=0
  3905. &?M%=C%(0,__%):Iy%=4:T%=-2:
  3906. Q(A%(32),
  3907. A("YFi")+" "+
  3908. A("FrT"))
  3909. M%=Pk%-2:T%=M%:Iy%=?((S%!(M%*4))+277):
  3910. Q(A%(32),
  3911. A("YFi")+" "+$((S%!(M%*4))+8))
  3912. :lu%=((!((Z%(V%)+632)+(__%*&C)+8))
  3913. 8)<>0:Ql%=(!((Z%(V%)+632)+(__%*&C)+8)
  3914. 4)<>0:hu%=(!((Z%(V%)+632)+(__%*&C)+8)
  3915. 16)<>0:
  3916. Z(A%(32),&A,
  3917. Z(A%(32),9,
  3918. Z(A%(32),5,lu%):
  3919. Z(A%(32),&C,hu%):
  3920. S(A%(32),9):
  3921. P(A%(32),&A):
  3922. S(A%(32),5):
  3923. S(A%(32),&C)
  3924. Z(A%(32),&A,
  3925. Z(A%(32),9,
  3926. Z(A%(32),5,lu%):
  3927. Z(A%(32),&C,hu%):
  3928. S(A%(32),9):
  3929. P(A%(32),&A):
  3930. S(A%(32),5):
  3931. S(A%(32),&C)
  3932. 3,0,4:
  3933. Z(A%(32),&A,
  3934. Z(A%(32),9,
  3935. Z(A%(32),5,lu%):
  3936. Z(A%(32),&C,hu%):
  3937. S(A%(32),9):
  3938. P(A%(32),&A):
  3939. S(A%(32),5):
  3940. S(A%(32),&C)
  3941. Z(A%(32),&A,
  3942. Ql%):
  3943. Z(A%(32),9,Ql%):
  3944. Z(A%(32),5,lu%):
  3945. Z(A%(32),&C,hu%):
  3946. S(A%(32),9):
  3947. S(A%(32),&A):
  3948. S(A%(32),5):
  3949. S(A%(32),&C)
  3950. Z(A%(32),&A,
  3951. Ql%):
  3952. Z(A%(32),9,Ql%):
  3953. Z(A%(32),5,lu%):
  3954. Z(A%(32),&C,hu%):
  3955. S(A%(32),9):
  3956. S(A%(32),&A):
  3957. S(A%(32),5):
  3958. S(A%(32),&C)
  3959. 3,0,4:
  3960. Z(A%(32),&A,
  3961. Z(A%(32),9,
  3962. Z(A%(32),5,lu%):
  3963. Z(A%(32),&C,hu%):
  3964. S(A%(32),9):
  3965. P(A%(32),&A):
  3966. S(A%(32),5):
  3967. S(A%(32),&C)
  3968. Z(A%(32),&A,
  3969. Ql%):
  3970. Z(A%(32),9,Ql%):
  3971. Z(A%(32),5,lu%):
  3972. Z(A%(32),&C,hu%):
  3973. S(A%(32),9):
  3974. S(A%(32),&A):
  3975. S(A%(32),5):
  3976. S(A%(32),&C)
  3977. Z(A%(32),&A,
  3978. Ql%):
  3979. Z(A%(32),9,Ql%):
  3980. Z(A%(32),5,lu%):
  3981. Z(A%(32),&C,hu%):
  3982. S(A%(32),9):
  3983. S(A%(32),&A):
  3984. S(A%(32),5):
  3985. S(A%(32),&C)
  3986. 3,0,4:
  3987. Z(A%(32),9,
  3988. Z(A%(32),&A,
  3989. Z(A%(32),5,lu%):
  3990. Z(A%(32),&C,hu%):
  3991. S(A%(32),9):
  3992. P(A%(32),&A):
  3993. S(A%(32),5):
  3994. S(A%(32),&C)
  3995. `(A%(32),X%,Y%)
  3996. N(A%(32),X%,Y%,-1)
  3997. Ky(Wa%,D%)
  3998. D%!8<>1
  3999. J(Wa%)
  4000. PJ(X%,Y%,Wa%,xe%)
  4001. vO%:nB%=xe%:kO%=Wa%:J%!0=A%(35):J%!4=xe%:
  4002. &400CE,,J%:vO%=J%!28:Z%!0=1:Z%!4=0:Z%!8=X%:Z%!&C=&80000000:Z%!16=&7FFFFFFF:Z%!20=Y%:Z%!24=0:Z%!28=0:Z%!32=vO%:Z%!36=0:
  4003. &47702,1,Z%
  4004. &400CF,,Z%:Y`%=Z%!&C:
  4005. Nu!J%=kO%:J%!4=nB%:
  4006. &400CE,,J%:
  4007. &400C4,,J%:
  4008. (Z%!24)
  4009. J%!28=-1
  4010. J%!28=Z%!28
  4011. :J%!4=kO%:
  4012. &400C2,nB%,J%+4:
  4013. &400D1,A%(35),0,-&FFFF,&FFFF,0:
  4014. Z%!16
  4015. Ky(A%(4),Z%)
  4016. J(A%(4))
  4017. 6,7,4:
  4018. Z(A%(4),&A,
  4019. Z%!16
  4020. Ky(A%(34),Z%):
  4021. Ky(A%(35),Z%)
  4022. J(A%(34)):
  4023. J(A%(35))
  4024. oo%,Ay%,fB%,tB%,U`%:oo%=Z%!16
  4025. PJ(Z%!0,Z%!4,A%(35),Z%!16)
  4026. PJ(Z%!0,Z%!4,A%(35),(Z%!16)-1)
  4027. 6:Z`%=(Z%!16)-1:Ay%=Z%!16
  4028. 7:J%!4=(Ay%*7)+3:
  4029. &400CE,,J%:tB%=J%!28:J%!4=(Ay%*7)+1:
  4030. &400CE,,J%:fB%=J%!28:v%!64=tB%:v%!68=fB%:
  4031. (Z%(V%)?607)=0
  4032. (Z%(V%)?607)=1
  4033. U`%=0
  4034. &4075D,j_%,"fill"+
  4035. (U`%),v%+64,,0:
  4036. G(iu%,Z%!0,Z%!4)
  4037. U`%=0
  4038. &4075D,j_%,"style"+
  4039. (U`%),v%+64,,0:
  4040. G(mu%,Z%!0,Z%!4)
  4041. Z%!16
  4042. Z%!8<>1
  4043. &400D4,,-1:
  4044. J(A%(5))
  4045. &400D4,,-1:
  4046. J(A%(5))
  4047. 0,1,3:
  4048. S(A%(5),0)
  4049. Z(A%(5),0,
  4050. Z(A%(5),5,
  4051. S(A%(5),5)
  4052. Z(A%(5),0,
  4053. Z(A%(5),5,
  4054. Z%!16
  4055. Z%!8<>1
  4056. &400D4,,-1:
  4057. J(A%(32))
  4058. &400D4,,-1:
  4059. J(A%(32))
  4060. 9,5,&C:
  4061. S(A%(32),9)
  4062. Z(A%(32),9,
  4063. Z(A%(32),&A,
  4064. S(A%(32),&A)
  4065. Z(A%(32),9,
  4066. Z(A%(32),&A,
  4067. Z%!16
  4068. Z%!8=4
  4069. J(A%(6))
  4070. J(A%(6))
  4071. 3+1,3+2:
  4072. U(A%(6),3,(((Z%!16)-3-1)*-2)+1,&7FFFFFFE,-&7FFFFFFF):
  4073. Z(A%(6),&B,
  4074. &F+1,&F+2:
  4075. U(A%(6),&F,(((Z%!16)-&F-1)*-2)+1,&7FFFFFFE,-&7FFFFFFF):
  4076. Z(A%(6),23,
  4077. 6+1,6+2:
  4078. U(A%(6),6,(((Z%!16)-6-1)*-2)+1,&7FFFFFFE,-&7FFFFFFF):
  4079. Z(A%(6),&B,
  4080. 18+1,18+2:
  4081. U(A%(6),18,(((Z%!16)-18-1)*-2)+1,&7FFFFFFE,-&7FFFFFFF):
  4082. Z(A%(6),23,
  4083. Z(A%(6),&B,
  4084. &F,18:
  4085. Z(A%(6),23,
  4086. Z%!16
  4087. 3,4,5:
  4088. G(zi%,Z%!0,Z%!4)
  4089. Ui%=0
  4090. N(A%(29),Z%!0,Z%!4,-1)
  4091. N(A%(2),Z%!0,Z%!4,-1)
  4092. N(A%(4),Z%!0,Z%!4,-1)
  4093. N(A%(3),Z%!0,Z%!4,-1)
  4094. Ru(Z%!0,Z%!4)
  4095. xy(Te%)
  4096. G$,B$,ny$,Jy%:ny$=
  4097. A("Key"):
  4098. 0:G$="pie_on":B$=
  4099. A("PCt"):
  4100. J(A%(2)):
  4101. J(A%(6))
  4102. 1:G$="bar_on":B$=
  4103. A("BCt"):
  4104. J(A%(29))
  4105. 3:G$="line_on":B$=
  4106. A("LGr"):
  4107. J(A%(29))
  4108. 2:G$="scatter_on":B$=
  4109. A("ScG"):
  4110. J(A%(29))
  4111. :Ui%=Te%:
  4112. Jy%=0
  4113. Z(A%(0),Jy%,Jy%=Ui%):
  4114. Oy(A%(1),3,G$):
  4115. A(A%(1),4,B$):
  4116. A(A%(1),6,ny$):Z%(V%)?607=Ui%:
  4117. k(V%):
  4118. jO%,ee%,s`%,hZ%,Iy%:
  4119. M(CJ%,4,"DRc",&80,Z+Gy,-1):
  4120. M(CJ%,1,"Pri",2+8,Z+Gy,A%(M))
  4121. M(CJ%,4,"DRc",&80,Z,-1):
  4122. M(CJ%,1,"Pri",2+8,Z,A%(M))
  4123. M(CJ%,3,"ARc",0,Z+Gy,-1):
  4124. M(CJ%,0,"Sav",0,Z+Gy,kl%)
  4125. M(CJ%,3,"ARc",0,Z,-1):
  4126. M(CJ%,0,"Sav",0,Z,kl%)
  4127. G(CJ%,Z%!0-64,Z%!4):ya%=Z%!0:Ya%=Z%!4:ma%=A%(7):T%=
  4128. Q(ya%,Ya%)
  4129. 4:jO%=Z%!0:ee%=Z%!4:ma%=A%(7):s`%=
  4130. Q(jO%,ee%):
  4131. (s`%<>i%)
  4132. (vn%<>t%)
  4133. ,i%=s`%:vn%=t%:Wl%=!((S%!(s`%*4))+277):
  4134. Zn%,Jy,Ay:
  4135. Zy%<>-1
  4136. Ay(A%(7),Zy%):Zy%=-1:
  4137. J(A%(30)):Gu%=
  4138. (P%+1)*cy%<=296
  4139. #Xy%=(-((t%*(296/(P%+1)))+42))-8
  4140. Xy%=(-((t%*cy%)+42))-8
  4141. :Xy%-=60*
  4142. x_(i%):
  4143. s_%<>-1
  4144. __(i%)
  4145. Jl(Xy%,i%,t%):
  4146. P_(A%(7),Zy%):Zn%=
  4147. Z(A%(7),Zy%)):
  4148. &400D2,A%(7),Zy%,,,-1,Zn%
  4149. Ki(Xy%,i%,t%):
  4150. P_(A%(7),Zy%):Zn%=
  4151. Z(A%(7),Zy%)):
  4152. &400D2,A%(7),Zy%,,,-1,Zn%:F=
  4153. Z(A%(7),Zy%)):Ay=!((S%!(i%*4))+281):Jy=!((S%!(i%*4))+285):
  4154. ((F>Ay)
  4155. (F<Jy))
  4156. ((?((S%!(i%*4))+278))
  4157. iy(Jy,Ay)
  4158. tl(Xy%,i%,t%):
  4159. P_(A%(7),Zy%):Zn%=
  4160. Z(A%(7),Zy%)):
  4161. &400D2,A%(7),Zy%,,,-1,Zn%:F=
  4162. Z(A%(7),Zy%)):Ay=|((S%!(i%*4))+281):Jy=|((S%!(i%*4))+286):
  4163. ((F>Ay)
  4164. (F<Jy))
  4165. ((?((S%!(i%*4))+278))
  4166. iy(Jy,Ay)
  4167. 3:L%!0=A%(7):
  4168. &400CB,,L%:tn%=((L%!20)-(L%!4))+jO%:
  4169. tn%>=((&C+(S_%))+4)
  4170. tn%<=(((&C+(S_%))+4)+(&C*16)+44)
  4171. `_(i%,t%,0)
  4172. tn%>=(((&C+(S_%))+4)+(&C*16)+44+16)
  4173. tn%<=(((&C+(S_%))+4)+(&C*16)+44+16+(&C*16)+44)
  4174. `_(i%,t%,1)
  4175. t%<ty%
  4176. vJ%=(!((!b%)+(t%*2)))
  4177. &FFFF
  4178. vJ%=(!((!b%)+((t%-1)*2)))
  4179. &FFFF
  4180. Py(i%,
  4181. b(i%+64,vJ%),64,x%):
  4182. Py(i%,
  4183. b(i%+0,vJ%),0,P%):
  4184. aJ(t%)
  4185. :Fi%=&400E1:An%=
  4186. +20:By=6192:
  4187. Hy(i%):
  4188. s_%<>-1
  4189. HJ(i%)
  4190. :i%=-1
  4191. P_(p%,Jy%)J%!0=p%:J%!4=Jy%:J%!8=0:J%!&C=0:
  4192. &400CD,,J%:
  4193. Ay(p%,Jy%)J%!0=p%:J%!4=Jy%:
  4194. &400CE,,J%:
  4195. &400C4,,J%:Z%!0=p%:Z%!4=J%!8:Z%!8=J%!&C:Z%!&C=J%!16:Z%!16=J%!20:
  4196. &400C9,,Z%
  4197. G%,r%:G%=0:
  4198. (R%-1):!((S%!(r%*4))+4)=G%:
  4199. ?((S%!(r%*4))+277)
  4200. 0:G%+=(?((S%!(r%*4))+278))+1
  4201. 1:G%+=4
  4202. 3:G%+=1
  4203. 2:G%+=5
  4204. O(M%)
  4205. ?((S%!(M%*4))+277)
  4206. 0:Cy%=(?((S%!(M%*4))+278))+1
  4207. 1:Cy%=4
  4208. 3:Cy%=1
  4209. 2:Cy%=5
  4210. 1,"Invalid field type passed to FNget_field_length"
  4211. :=Cy%
  4212. F(M%)=!((S%!(M%*4))+4)
  4213. T_(U%)=(!e%)+(U%*4)
  4214. L(U%)
  4215. U%>ty%
  4216.     U%-=1
  4217. M(U%,(!b%))
  4218. M(U%,O%)=!((!e%)+(((O%!(U%*2))
  4219. &FFFF)*4))
  4220. Qk%:Qk%=ly%:
  4221. i((wy%+3)
  4222. 3)):ly%+=((wy%+3)
  4223. 3)):=Qk%
  4224. i(w%)
  4225. vy%<>-1
  4226. Ry(w%):
  4227. B(vy%,vy%+w%,sl%-vy%)
  4228. B(vy%,vy%+w%,sl%-vy%):
  4229. Ry(w%)
  4230. :vy%+=w%:sl%+=w%
  4231. X_(y_%)
  4232. M%,su%,y$:
  4233. &406C0:_l%=y_%:Fy$=$(vy%+(H_%*_l%)):
  4234. R%-1:su%=(?(vy%+(H_%*_l%)+&D+(M%*2)))-1:l_%?(su%*2)=M%:l_%?((su%*2)+1)=?(vy%+(H_%*_l%)+&E+(M%*2)):
  4235. :l_%?(R%*2)=&FF:y$="":M%=0:
  4236. (y$)<=20
  4237. M%<R%:y$+=$((S%!((l_%?(M%*2))*4))+8):
  4238. M%<R%-1
  4239. y$+=","
  4240. :M%+=1:
  4241. LJ:cy%=64+(60*iJ%):
  4242. Zy%<>-1
  4243. C(A%(7),Zy%):Zy%=-1:i%=-1
  4244. &406C1:
  4245. Uy:$si%="R2;Sdirblank":
  4246. A(A%(&D),6,y$):
  4247. A(A%(&D),5,Fy$):
  4248. (s_%<>-1
  4249. ny%<>-1)
  4250. J(A%(24)):
  4251. J(A%(25)):
  4252. J(A%(8)):
  4253. J(A%(9)):
  4254. J(A%(&A)):s_%=-1:ny%=-1
  4255. A$(),M%,y%,KB%,f$,U%,M%:
  4256. A$(R%-1):KB%=vy%+(H_%*_l%)+(&E+(R%*2)):
  4257. R%-1:f$="":A$(M%)=$KB%:
  4258. `u(A$(M%)):y%=1:
  4259. q_(y%,A$(M%)):
  4260. (A$(M%)):
  4261. oi(f$):A$(M%)=f$:KB%+=&80:
  4262. R%-1:
  4263. (A$(M%))>3
  4264. F(M%):Iy%=?((S%!(M%*4))+277):
  4265. Li(M%)
  4266. nl(M%)
  4267. mu(M%)
  4268. aa(M%)
  4269. mi:A%=
  4270. M(0,_%!(0*4)):
  4271. so%,mn%,M%,BB%:
  4272. R%-1:mn%=_%!(M%*4):
  4273. so%=(Ky%!(M%*4))
  4274. ((Ky%!(M%*4))+((x%-1)*2))
  4275. 2:BB%=((!so%)
  4276. &FFFF):
  4277. ((!((!e%)+(BB%*4)))
  4278. (1<<31))=0
  4279. %mn%?0=BB%
  4280. &FF:mn%?1=BB%>>8:mn%+=2
  4281. ,:P%=(mn%-(_%!((R%-1)*4)))/2:ty%=P%:
  4282. Py%=!e%
  4283. (!e%)+((x%-1)*4)
  4284. 4:!Py%=(!Py%)
  4285. &7FFFFFFF:
  4286. nl(M%)
  4287. Fy%,N_%,y%,Wy%,C_%,TJ%:
  4288. Fy%=!e%
  4289. (!e%)+((x%-1)*4)
  4290. ((!Fy%)
  4291. 1<<31)=0
  4292. :N_%=1:
  4293. (N_%<
  4294. (A$(M%)))
  4295. Wy%:y%=N_%+1:N_%=
  4296. A$(M%),N_%,1)):Wy%=
  4297. :C_%=
  4298. A$(M%),y%+2,
  4299. A$(M%),y%+1,1))))*(&A^(?((S%!(M%*4))+279))):
  4300. A("NQN")
  4301. A$(M%),y%,1))
  4302. 0,20,27:Wy%=!((!Fy%)+F%)=C_%
  4303. 1,21,26:Wy%=!((!Fy%)+F%)<>C_%
  4304. 28,19:Wy%=!((!Fy%)+F%)>=C_%
  4305. 29,18:Wy%=!((!Fy%)+F%)<C_%
  4306. 22,25:Wy%=!((!Fy%)+F%)<=C_%
  4307. 23,24:Wy%=(!((!Fy%)+F%))>C_%
  4308. A("ICO")
  4309. :y%+=2+
  4310. A$(M%),y%+1,1)):
  4311. y%>=N_%:
  4312. !Fy%=(!Fy%)
  4313. 1<<31
  4314. aa(M%)
  4315. Fy%,N_%,y%,Wy%,N,TJ%:
  4316. Fy%=!e%
  4317. (!e%)+((x%-1)*4)
  4318. ((!Fy%)
  4319. 1<<31)=0
  4320. :N_%=1:
  4321. (N_%<
  4322. (A$(M%)))
  4323. Wy%:y%=N_%+1:N_%=
  4324. A$(M%),N_%,1)):Wy%=
  4325. A$(M%),y%+2,
  4326. A$(M%),y%+1,1)))):
  4327. A("NQN")
  4328. A$(M%),y%,1))
  4329. 0,20,27:Wy%=|((!Fy%)+F%)=N
  4330. 1,21,26:Wy%=|((!Fy%)+F%)<>N
  4331. 28,19:Wy%=|((!Fy%)+F%)>=N
  4332. 29,18:Wy%=|((!Fy%)+F%)<N
  4333. 22,25:Wy%=|((!Fy%)+F%)<=N
  4334. 23,24:Wy%=|((!Fy%)+F%)>N
  4335. A("ICO")
  4336. :y%+=2+
  4337. A$(M%),y%+1,1)):
  4338. y%>=N_%:
  4339. !Fy%=!Fy%
  4340. 1<<31
  4341. mu(M%)
  4342. Fy%,N_%,y%,Wy%,S$,n$,AB%:
  4343. Fy%=!e%
  4344. (!e%)+((x%-1)*4)
  4345. ((!Fy%)
  4346. 1<<31)=0
  4347. :N_%=1:
  4348. (N_%<
  4349. (A$(M%)))
  4350. Wy%:y%=N_%+1:N_%=
  4351. A$(M%),N_%,1)):Wy%=
  4352. A$(M%),y%+2,
  4353. A$(M%),y%+1,1))):n$=
  4354. G(S$):
  4355. C(S$,$((S%!(M%*4))+281))=0
  4356.             AB%=0
  4357. C(S$,$((S%!(M%*4))+294))=0
  4358.     AB%=1
  4359. A("NBQ")
  4360. A$(M%),y%,1))
  4361. 1,21,26:Wy%=?((!Fy%)+F%)<>AB%
  4362. 0,20,27:Wy%=?((!Fy%)+F%)=AB%
  4363. A("ICO")
  4364. :y%+=2+
  4365. A$(M%),y%+1,1)):
  4366. y%>=N_%:
  4367. !Fy%=!Fy%
  4368. 1<<31
  4369. Li(M%)
  4370. Fy%,N_%,y%,Wy%,S$,n$,O$:
  4371. Fy%=!e%
  4372. (!e%)+((x%-1)*4)
  4373. ((!Fy%)
  4374. 1<<31)=0
  4375. :N_%=1:
  4376. (N_%<
  4377. (A$(M%)))
  4378. Wy%:y%=N_%+1:N_%=
  4379. A$(M%),N_%,1)):Wy%=
  4380. A$(M%),y%+2,
  4381. A$(M%),y%+1,1))):O$=S$:n$=
  4382. G(S$):
  4383. A$(M%),y%,1))
  4384. 41:Wy%=
  4385. c($((!Fy%)+F%),n$)
  4386. 40:Wy%=
  4387. c($((!Fy%)+F%),n$)
  4388. 43:Wy%=
  4389. e($((!Fy%)+F%),n$)
  4390. 42:Wy%=
  4391. e($((!Fy%)+F%),n$)
  4392. 35:Wy%=
  4393. r($((!Fy%)+F%),n$)
  4394. 34:Wy%=
  4395. r($((!Fy%)+F%),n$)
  4396. 0,20,27:Wy%=
  4397. g_($((!Fy%)+F%),S$)=0
  4398. 1,21,26:Wy%=
  4399. C($((!Fy%)+F%),S$)<>0
  4400. 28,19:Wy%=
  4401. C($((!Fy%)+F%),S$)>=0
  4402. 29,18:Wy%=
  4403. C($((!Fy%)+F%),S$)<0
  4404. 22,25:Wy%=
  4405. C($((!Fy%)+F%),S$)<=0
  4406. 23,24:Wy%=
  4407. C($((!Fy%)+F%),S$)>0
  4408. &69:Wy%=
  4409. $((!Fy%)+F%),
  4410. (O$))<>O$
  4411. &68:Wy%=
  4412. $((!Fy%)+F%),
  4413. (O$))=O$
  4414. &6B:Wy%=
  4415. $((!Fy%)+F%),O$)=0
  4416. &6A:Wy%=
  4417. $((!Fy%)+F%),O$)>0
  4418. 99:Wy%=
  4419. $((!Fy%)+F%),
  4420. (O$))<>O$
  4421. 98:Wy%=
  4422. $((!Fy%)+F%),
  4423. (O$))=O$
  4424. 64,20,27:Wy%=$((!Fy%)+F%)=O$
  4425. 65,21,26:Wy%=$((!Fy%)+F%)<>O$
  4426. 92,19:Wy%=$((!Fy%)+F%)>=O$
  4427. 93,18:Wy%=$((!Fy%)+F%)<O$
  4428. 86,25:Wy%=$((!Fy%)+F%)<=O$
  4429. 87,24:Wy%=$((!Fy%)+F%)>O$
  4430. A("ICO")
  4431. :y%+=2+
  4432. A$(M%),y%+1,1)):
  4433. y%>=N_%:
  4434. !Fy%=!Fy%
  4435. 1<<31
  4436. y%,ri%,Qa%,P$,Ii%,kB%:ri%=
  4437. :Qa%=
  4438. :y%=1:
  4439. F$,y%,1)
  4440. """":
  4441. F$,y%+1,1)=""""
  4442. P$+="""":y%+=1
  4443. P$,Ii%)=
  4444. (y%-kB%)
  4445. P$+=""""
  4446. :P$+=
  4447. (&A)+
  4448. (&FF):Ii%=
  4449. (P$):kB%=y%+1
  4450.     A>Qa%=
  4451. :gy$=
  4452. P$,Ii%+1):P$=
  4453. P$,Ii%)+gy$:
  4454. P$,Ii%)=
  4455. (P$)-Ii%)
  4456. P$+="'"
  4457. :P$+=
  4458. (&B)+
  4459. (&FF):Ii%=
  4460. (P$):kB%=y%+1
  4461. F$,y%,1)
  4462. F$,y%,1)>="a"
  4463. F$,y%,1)<="z"
  4464. F$,y%,1))
  4465. F$,y%,1)
  4466. :y%+=1:
  4467. (F$):
  4468. A("MQ""")
  4469. A("MQ'")
  4470. :F$=P$:
  4471. y%,V$)
  4472. Di%,P$,K%:Di%=0:K%=-1:
  4473. V$,y%,1)=" ":y%+=1:
  4474. V$,y%),P$(Di%))=1
  4475. K%=Di%:y%+=
  4476. (P$(Di%))
  4477. :Di%+=1:
  4478. (Di%>
  4479. (P$(),1))
  4480. K%<>-1:
  4481. K%<>-1
  4482. (D%(K%))
  4483. V$,y%,1)):
  4484. K%=&A
  4485. K%=&B
  4486.     X=P$+=
  4487. (K%)+
  4488. V$,y%+1,
  4489. V$,y%+1,1))+1):y%+=
  4490. V$,y%+1,1))+2
  4491. s_(y%,V$)
  4492. y%,V$)
  4493. Di%,Q%,h`%,P$,Cy%:Q%=
  4494. (V$)+1:
  4495. Di%=0
  4496. (P$(),1):h`%=
  4497. V$,W$(Di%),y%):
  4498. (h`%<>0)
  4499. (h`%<Q%)
  4500. Q%=h`%
  4501. V$,y%,Q%-y%):Cy%=Q%-y%:y%=Q%:=
  4502. (&B)+
  4503. (Cy%)+P$
  4504. P$,y%,Ca%,XB%:y%=1:P$=
  4505. (&FF):Ca%=0:DJ%=
  4506. V$,1)):XB%=1:
  4507. DJ%<>&A
  4508. DJ%<>&B
  4509. (V$):y%+=1:
  4510. B%(DJ%))
  4511. A("ICO")
  4512. :Ca%=(Ca%
  4513. W%(DJ%))
  4514. P%(DJ%):DJ%=
  4515. V$,y%,1)):
  4516. DJ%=&A
  4517. gO%=64
  4518. gO%=0
  4519. :P$+=
  4520. gO%)+
  4521. V$,y%+1,
  4522. V$,y%+1,1))+1):y%+=
  4523. V$,y%+1,1))+2:DJ%=
  4524. V$,y%,1)):
  4525. DJ%=3
  4526. y%+=1:DJ%=
  4527. V$,y%,1))
  4528. (DJ%<>&A
  4529. DJ%<>&B):Ca%=0:
  4530. DJ%=4
  4531. DJ%=5
  4532. P$,XB%,1)=
  4533. (P$)+1):P$+=
  4534. (&FF):XB%=
  4535. (P$):y%+=1:DJ%=
  4536. V$,y%,1))
  4537. A("TrR")
  4538. (V$):
  4539. P$,XB%,1)=
  4540. (P$)):V$=P$:
  4541. M%:iJ%=0:dB%=0:
  4542. R%-1:
  4543. ?((vy%+(H_%*_l%))+&E+(R%*&82)+(M%
  4544. (1<<(M%
  4545.     m!?((S%!(M%*4))+280)=&FF:iJ%+=1
  4546. ?((S%!(M%*4))+280)=0:dB%+=1
  4547. c$,y_%,M%,tO%:c$=
  4548. Z(A%(22),18):
  4549. c$=""
  4550. A("SNB")
  4551. y_%=0
  4552. $(vy%+(H_%*y_%))=c$
  4553. y_%<>Ll%
  4554. A("SNU")
  4555. :tO%=0:
  4556. R%-1:
  4557. S(A%(26),(M%*6)+2)
  4558. tO%+=1
  4559. tO%=0
  4560. A("NFV")
  4561. gl%,M%,hi%:
  4562. al:hi%=vy%+(H_%*16):gl%=vy%+(H_%*Ll%):$gl%=
  4563. Z(A%(22),18):gl%!(&E+(R%*&82))=0:gl%!(18+(R%*&82))=0:
  4564. R%-1:gl%?(&D+(M%*2))=
  4565. ($(hi%+(R%*&80)+(M%*3))):
  4566. S(A%(26),(M%*6)+3)
  4567. gl%?(&E+(M%*2))=0
  4568. gl%?(&E+(M%*2))=1
  4569. :$(gl%+(&E+(R%*2)+(M%*&80)))=$(hi%+(M%*&80)):
  4570. S(A%(26),(M%*6)+2)
  4571.     ~*?(gl%+&E+(R%*&82)+(M%
  4572. 8))+=(1<<(M%
  4573. Ry((((R%*&82)+22)*16)+(R%*3)+(R%*&80)):vy%=ly%:sl%=ly%+(((R%*&82)+22)*16)+(R%*3)+(R%*&80):H_%=((R%*&82)+22):
  4574. G%,y_%,M%:
  4575. vy:G%=vy%:
  4576. y_%=0
  4577. &F:$G%=
  4578. A("SbS")+
  4579. (y_%):
  4580. R%-1:G%?(&D+(M%*2))=M%+1:G%?(&E+(M%*2))=0:G%?(&E+(R%*2)+(M%*&80))=&D:
  4581. :G%?(&D+(R%*2))=&FF:G%!(&E+(R%*&82))=-1:G%!(18+(R%*&82))=-1:G%+=H_%:
  4582. :$vy%=
  4583. A("All"):
  4584. uu(d%)
  4585. G%,y_%,M%:G%=vy%:
  4586. y_%=0
  4587. #d%,($G%)+
  4588. (&D);:
  4589. R%-1:
  4590. #d%,G%?(&D+(M%*2)):
  4591. #d%,G%?(&E+(M%*2)):
  4592. #d%,$(G%+(&E+(R%*2)+(M%*&80)))+
  4593. (&D);:
  4594. q(d%,G%!(&E+(R%*&82))):
  4595. q(d%,G%!(18+(R%*&82))):G%+=H_%:
  4596. G%,y_%,M%:G%=vy%:
  4597. y_%=0
  4598. &F:$G%=$V_%:
  4599. (G%+&FF)>=V_%
  4600. ]V_%+=
  4601. ($G%)+1:
  4602. R%-1:G%?(&D+(M%*2))=V_%?0:G%?(&E+(M%*2))=V_%?1:
  4603. (G%+&E+(M%*2))>=V_%
  4604. M$(G%+(&E+(R%*2)+(M%*&80)))=$(V_%+2):
  4605. (G%+(&E+(R%*2)+(M%*&80)))+&FF>=V_%
  4606. kV_%+=3+
  4607. ($(G%+(&E+(R%*2)+(M%*&80)))):
  4608. :G%!(&E+(R%*&82))=V_%!0:G%!(18+(R%*&82))=V_%!4:G%+=H_%:V_%+=8:
  4609. Ba(U_%)
  4610. Py%,w%,M%,OJ%,c`%,y_%:
  4611. Ry((&82*16)+&83):
  4612. y_%=&F
  4613. -1:Py%=(y_%*H_%)+vy%:w%=(&82*y_%):OJ%=Py%!(&E+((R%-1)*&82)):c`%=Py%!(18+((R%-1)*&82)):
  4614. U_%<32
  4615. B`%=OJ%
  4616. (-1<<((U_%+1)
  4617. 32)):OJ%=OJ%
  4618. (-1<<((U_%+1)
  4619. 32)):OJ%=OJ%
  4620. (B`%<<1):OJ%=OJ%
  4621. (1<<(U_%+1)):c`%=c`%
  4622. (1<<(U_%-31)):Py%!(&E+(R%*&82)+w%)=OJ%
  4623. :Py%!(18+(R%*&82)+w%)=Py%!(18+((R%-1)*&82)):
  4624. U_%<R%-2
  4625. M%=R%-2
  4626. U_%+1
  4627. -1:$(Py%+(R%*2)+&E+((M%+1)*&80)+w%)=$(Py%+((R%-1)*2)+&E+(M%*&80)):
  4628. :$(Py%+(R%*2)+&E+((U_%+1)*&80)+w%)="":
  4629. M%=U_%
  4630. -1:$(Py%+(R%*2)+&E+(M%*&80)+w%)=$(Py%+((R%-1)*2)+&E+(M%*&80)):
  4631. U_%<R%-1
  4632. M%=R%-2
  4633. U_%+1
  4634. -1:Py%?(&D+(M%*2)+w%+2)=Py%?(&D+(M%*2)):Py%?(&E+(M%*2)+w%+2)=Py%?(&E+(M%*2)):
  4635. :Py%?(&D+((U_%+1)*2)+w%)=R%:Py%?(&E+((U_%+1)*2)+w%)=0:
  4636. M%=U_%
  4637. -1:Py%?(&D+(M%*2)+w%)=Py%?(&D+(M%*2)):Py%?(&E+(M%*2)+w%)=Py%?(&E+(M%*2)):
  4638. :$(Py%+w%)=$Py%:
  4639. :H_%+=&82:sl%+=(&82*16)+&83:
  4640. Fu(oJ%)
  4641. Py%,w%,M%,OJ%,c`%,y_%,su%:
  4642. y_%=0
  4643. &F:Py%=(y_%*H_%)+vy%:w%=(&82*y_%):$(Py%-w%)=$Py%:
  4644. oJ%>0
  4645. oJ%-1:su%=Py%?(&D+(M%*2)):
  4646. su%>(oJ%+1)
  4647. su%-=1
  4648. :Py%?(&D+(M%*2)-w%)=su%:Py%?(&E+(M%*2)-w%)=Py%?(&E+(M%*2)):
  4649. oJ%<R%-1
  4650. M%=oJ%+1
  4651. R%-1:su%=Py%?(&D+(M%*2)):
  4652. su%>(oJ%+1)
  4653. su%-=1
  4654. :Py%?(&D+((M%-1)*2)-w%)=su%:Py%?(&E+((M%-1)*2)-w%)=Py%?(&E+(M%*2)):
  4655. oJ%>0
  4656. oJ%-1:$(Py%+((R%-1)*2)+&E+(M%*&80)-w%)=$(Py%+(R%*2)+&E+(M%*&80)):
  4657. oJ%<(R%-1)
  4658. M%=oJ%+1
  4659. R%-1:$(Py%+((R%-1)*2)+&E+((M%-1)*&80)-w%)=$(Py%+(R%*2)+&E+(M%*&80)):
  4660. :OJ%=Py%!(&E+(R%*&82)):c`%=Py%!(18+(R%*&82)):
  4661. oJ%<32
  4662. dB`%=OJ%
  4663. (-1<<((oJ%+1)
  4664. 32)):OJ%=OJ%
  4665. (-1<<(oJ%
  4666. 32)):OJ%=OJ%
  4667. (B`%>>1):Py%!(&E+((R%-1)*&82)-w%)=OJ%
  4668. :Py%!(18+((R%-1)*&82)-w%)=Py%!(18+(R%*&82)):
  4669. :H_%-=&82:sl%-=(&82*16)+&83:
  4670. Ry((-&82*16)-&83):
  4671. Zy(w%)
  4672. K(w%)
  4673. A("Mem")
  4674. Ui(-w%)
  4675. :Ry%+=w%:Ry%=(Ry%+3)
  4676. U%,r%,K%,F_%,gZ%:
  4677. &FF)=0
  4678. hy(-2,&400,0):
  4679. hy(-1,&400,0):
  4680. e_%=0
  4681. R%-1:
  4682. hy(e_%,&400,0):
  4683. hy(e_%,&400,64):
  4684. A(A%(&D),5,
  4685. A("All")):
  4686. S(A%(&D),9):
  4687. S(A%(&D),8):
  4688. S(A%(&D),6):
  4689. S(A%(16),4):
  4690. S(A%(&D),&E):
  4691. S(A%(&D),&C):
  4692. S(A%(&D),&A):
  4693. S(A%(&D),5):
  4694. S(A%(16),6):
  4695. S(A%(16),5):
  4696. S(A%(16),9):
  4697. S(A%(&D),7)
  4698. :U%=x%:!((!e%)+(U%*4))=
  4699. m_:cl%=!((!e%)+(U%*4)):
  4700. (R%-1):
  4701. ?((S%!(r%*4))+277)
  4702. 0:$cl%="":cl%+=(?((S%!(r%*4))+278))+1
  4703. 1:!cl%=0:cl%+=4
  4704. 3:?cl%=((!((S%!(r%*4))+277))
  4705. (1<<8))>0:cl%+=1
  4706. 2:|cl%=0:cl%+=5
  4707. :P%+=1:x%+=1:
  4708. e_%=0
  4709. (R%-1):
  4710. C_(_%!(e_%*4),U%,P%-1):
  4711. C_(Ky%!(e_%*4),U%,x%-1):
  4712. Py(e_%,P%-1,0,P%):
  4713. Py(e_%,x%-1,64,x%):
  4714. Ga(!b%,U%,t%):
  4715. s_%<>-1
  4716. UJ(s_%)
  4717. el(ey%)
  4718. 2:g_%=ey%:Fa%=J%(ey%):
  4719. G(di%,Z%!0-64,Z%!4)
  4720. (ey%<>V%)
  4721. V%<>-1
  4722. F%(V%)=F%(V%)
  4723. :V%=ey%:SB%=J%(ey%):F%(ey%)=F%(ey%)
  4724. xy(Z%(ey%)?607):!L%=J%(ey%):
  4725. &400CB,,L%:
  4726. N(A%(0),L%!4+Yn%,L%!16+wn%,-1):!L%=J%(ey%):
  4727. &400CB,,L%:
  4728. N(A%(1),L%!4+Un%,(L%!8)+Dn%-Pn%,-1)
  4729. ey%<>V%
  4730. (F%(ey%)
  4731. k(ey%):
  4732. Z%!16
  4733. B(ji%,k_%,64):
  4734. Z%!8=4
  4735. J(A%(23))
  4736. J(A%(23))
  4737. Z%!16<&C
  4738. Z%!16>=0
  4739. &d_%=((Z%!16)/2)+1:
  4740. _l(d_%,Z%!16
  4741. !L%=A%(23):
  4742. &400CB,,L%:Va%=(L%!4)-(L%!20):ua%=(L%!16)-(L%!24):d_%=-((((Z%!4)-ua%-24)/60)):Pa%=((Z%!0)-Va%-&88)/20:
  4743. d_%>0
  4744. d_%<7
  4745. A("Row"+
  4746. (d_%)):
  4747. Pa%>0
  4748. Pa%<=
  4749. v$,Pa%,1)):ji%?((oy%-32)
  4750. 8)=(ji%?((oy%-32)
  4751. (1<<((oy%-32)
  4752. 8)):Z%!8=-24-(d_%*60):Z%!4=&88+(20*(Pa%)):Z%!0=A%(23):Z%!&C=&88+(20*(Pa%+1)):Z%!16=-20-((d_%-1)*60):
  4753. &400C9,,Z%
  4754. _l(d_%,cO%)
  4755. pJ%,v$:v$=
  4756. A("Row"+
  4757. (d_%)):
  4758. pJ%=1
  4759. (v$):oy%=
  4760. v$,pJ%,1)):ji%?((oy%-32)
  4761. 8)=((ji%?((oy%-32)
  4762. ((1<<((oy%-32)
  4763. 8))))
  4764. (cO%<<((oy%-32)
  4765. :Z%!8=-24-(d_%*60):Z%!4=&88+20:Z%!0=A%(23):Z%!&C=&88+(20*(
  4766. (v$)+1)):Z%!16=-20-((d_%-1)*60)
  4767. &400C9,,Z%
  4768. Z%!16
  4769. Z%!8=4
  4770. &400D4,,-1
  4771. &400D4,,-1
  4772. Z%!8=4
  4773. &400D4,,-1
  4774. &B:h_%=-1:Qu%=-1:
  4775. &40091,,0,&C<<16,0,0,0,0
  4776. ,,,Cu%,,fl%:b_%=
  4777. U(Cu%+fl%):na%=b_%+Cu%:
  4778. &40091,,b_%,&C<<16,Cu%,na%,fl%,0:e`%=Z%!16:
  4779. G(b_%,Z%!0,Z%!4)
  4780. &C:h_%=-1:Qu%=-1:
  4781. &40091,,0,28<<16,0,0,0,0
  4782. ,,,Cu%,,fl%:b_%=
  4783. U(Cu%+fl%):na%=b_%+Cu%:
  4784. &40091,,b_%,28<<16,Cu%,na%,fl%,0
  4785. &40091,,0,&C<<16,0,0,0,0
  4786. ,,,Cu%,,fl%:b_%=
  4787. U(Cu%+fl%):na%=b_%+Cu%:
  4788. &40091,,b_%,&C<<16,Cu%,na%,fl%,0
  4789. :e`%=Z%!16:
  4790. G(b_%,Z%!0,Z%!4)
  4791. Pu%,Nu%,eu%,Qy%:Pu%=
  4792. Z(A%(33),19)))/256:Nu%=
  4793. Z(A%(33),23)))/256:eu%=ru%-&84-Pn%-40:Qy%=Ou%-&64:T=eu%/Nu%:wy=Qy%/Pu%:
  4794. (wy*&64))
  4795. eo%,Gk%:
  4796. Z%!16
  4797. A(A%(33),4,"33")
  4798. A(A%(33),4,"80")
  4799. A(A%(33),4,"100")
  4800. A(A%(33),4,"120")
  4801. 4+1,4+2:
  4802. U(A%(33),4,(((Z%!16)-4)*2)-3,&FFFF,1)
  4803. A(A%(33),4,
  4804. 17,16:
  4805. G(Cl%,Z%!0,Z%!4)
  4806. 19+1,19+2:
  4807. U(A%(33),19,(((Z%!16)-19)*2)-3,&FFFF,&A)
  4808. 23+1,23+2:
  4809. U(A%(33),23,(((Z%!16)-23)*2)-3,&FFFF,&A)
  4810. J(A%(33))
  4811. Z(A%(33),4)))<=0
  4812. A("GSc")
  4813. :eo%=Z%(g_%)!672:Gk%=Z%(g_%)!676:Z%(g_%)!672=
  4814. Z(A%(33),19))):Z%(g_%)!676=
  4815. Z(A%(33),23))):Z%(g_%)!680=(
  4816. Z(A%(33),4))/&64)*(1<<16):
  4817. (eo%<>Z%(g_%)!672)
  4818. (Gk%<>Z%(g_%)!676)
  4819. F%(g_%)=F%(g_%)
  4820. o_(g_%):
  4821. Z%!8=4
  4822. J(A%(33))
  4823. a(HJ)=HJ*(256*&B4*0.0394)
  4824. V_(LJ)
  4825. @%:@%="+F.1":=
  4826. (((LJ/(256*&B4*0.0394))*&A)+0.5)/&A)
  4827. ii(X%,Y%)
  4828. Hn%,vy$,ry$:vy$=
  4829. V_(Z%(g_%)!672):ry$=
  4830. V_(Z%(g_%)!676):
  4831. A(A%(33),4,
  4832. (((Z%(g_%)!680)/(1<<16))*&64))):
  4833. A(A%(33),19,vy$):
  4834. A(A%(33),23,ry$):
  4835. A(A%(33),16,""):
  4836. Hn%=0
  4837. A("PSX"+
  4838. (Hn%))=vy$
  4839. A("PSY"+
  4840. (Hn%))=ry$
  4841. A(A%(33),16,
  4842. A("PS"+
  4843. (Hn%)))
  4844. N(A%(33),X%,Y%,-1):
  4845. n_(D$)
  4846. D$,"\")<>0
  4847. (D$)-(
  4848. D$,"\")+1))
  4849. D$,"\")<>0
  4850. D$,"\")-1)
  4851. Z%!16
  4852. &400C0:
  4853. &400C9:
  4854. &400DD,qi%,&4B534154:
  4855. &41504,bi%:
  4856. &80142
  4857. &400C1:
  4858. Z%!&C=sJ%
  4859. bl(sJ%)
  4860. Z%!&C=gB%
  4861. v_(k`%,
  4862. v_(Z%+44)):Z%!&C=Z%!8:Z%!16=3:
  4863. &400E7,18,Z%,Z%!4
  4864. &80147:
  4865. wl%=&12345678
  4866. {Z%!36=&C7:Z%!0=256:Z%!&C=0:Z%!16=3:Z%!40=&C43:$(Z%+44)="<Wimp$ScrapDir>.DB_Pref"+
  4867. (&D)+
  4868. (0):wl%=&C43:
  4869. &400E7,17,Z%,dr%
  4870. wl%=&C43
  4871. ("Remove <Wimp$ScrapDir>.DB_Pref")
  4872. (Z%!40)=eJ%
  4873. 9Z%!&C=Z%!8:Z%!16=4:
  4874. &400E7,17,Z%,Z%!4:
  4875. I(Z%+44))
  4876. &80145:
  4877. an%=sJ%
  4878. Ou(sJ%)
  4879. &400CC:
  4880. &502:
  4881. &47700:
  4882. Rk%,ZB%,hn%,pJ%,pu%:
  4883. sy,"Help$Dir",0,-1,0,0
  4884. ,,Rk%:
  4885. "TZB%=0:hn%=-1:
  4886. &42681,ZB%,Z%,256
  4887. ZB%,pu%:
  4888. pJ%=Z%+4
  4889. pu%-4
  4890. !(!pJ%)=&706C6548
  4891. hn%=pJ%!-4
  4892. (ZB%<0)
  4893. (hn%>=0):
  4894. hn%>=0
  4895. %;Z%!0=0:Z%!4=0:Z%!8=4:Z%!&C=-2:Z%!16=0:
  4896. &400E7,6,Z%,hn%
  4897. (%*Filer_Run Resources:$.Apps.!Help
  4898. *Set Help$Dir Resources:$.Apps.!Help
  4899. *:*Set Help$Path <Help$Dir>.,Resources:$.Resources.Help.
  4900. *WimpSlot -next 20K
  4901. *Filer_Run Help:!RunLink
  4902. QB%,ma%,t%,tu%:A$=
  4903. A("Hlp4"):
  4904. 0%A$+=
  4905. A("MCk")+"|m"+
  4906. A("Hlp7_Dbc")
  4907. A("NDa")+"|m"
  4908. :ma%=A%(7):QB%=
  4909. Q(Z%!20,Z%!24):
  4910. t%<>ty%
  4911. 4!J$=
  4912. (t%+1):A$+=
  4913. A("Hlp7_RcN")
  4914. A("Hlp7_RcB")
  4915. 7/J$=$((S%!(QB%*4))+8):
  4916. ?((S%!(QB%*4))+277)
  4917. 0:A$+=
  4918. A("Hlp7_Str")
  4919. 1:A$+=
  4920. A("Hlp7_Int")
  4921. 2:A$+=
  4922. A("Hlp7_Rel")
  4923. 3:A$+=
  4924. A("Hlp7_Bol")
  4925. :A$+=($((S%!(QB%*4))+21))+
  4926. A("Hlp7_Clk")
  4927. ta%=1
  4928. A("Hlp6__0")
  4929. A("Hlp6__1")
  4930. Z%!36
  4931. Dy:A$+=
  4932. A("Hlp6_ok")
  4933. Qy:A$+=
  4934. A("Hlp6_can")
  4935. 8:A$+=
  4936. A("Hlp6_8")
  4937. &C:A$+=
  4938. A("Hlp6_12")
  4939. &D:A$+=
  4940. A("Hlp6_13")
  4941. ta%=1
  4942. A("Hlp6_Mnu")
  4943. Ly:A$+=
  4944. A("Hlp6_des")
  4945. Uy:A$+=
  4946. A("Hlp6_inf")
  4947. 21:A$+=
  4948. A("Hlp6_21")
  4949. Z%!36
  4950. x:A$+=
  4951. A("Hlp6_SrMx")
  4952. Fy:A$+=
  4953. A("Hlp6_Alw")
  4954. f:A$+=
  4955. A("Hlp6_MxB")
  4956. Yy:A$+=
  4957. A("Hlp_Up")
  4958. qy:A$+=
  4959. A("Hlp_Down")
  4960. Z%!36
  4961. X:A$+=
  4962. A("Hlp6_NmR")
  4963. Q:A$+=
  4964. A("Hlp6_NmFr")
  4965. G:A$+=
  4966. A("Hlp6_NmTo")
  4967. H:A$+=
  4968. A("Hlp6_NmDc")
  4969. h:A$+=
  4970. A("Hlp6_NmDB")
  4971. L:A$+=
  4972. A("Hlp6_NmUB")
  4973. R,Y:A$+=
  4974. A("Hlp6_NmUS")
  4975. zy,Ky:A$+=
  4976. A("Hlp6_NmUM")
  4977. xy,GJ:A$+=
  4978. A("Hlp_Up")
  4979. dy,ey:A$+=
  4980. A("Hlp_Down")
  4981. Z%!36
  4982. Cy:J$=
  4983. Z(A%(21),a):A$+=
  4984. A("Hlp6_BlR")
  4985. m:J$=
  4986. Z(A%(21),z):A$+=
  4987. A("Hlp6_BlR")
  4988. a,z:A$+=
  4989. A("Hlp6_BlTx")
  4990. A$,ek%,Nr%:ek%=Z%!8:Nr%=Z%!4:
  4991. Z%!32
  4992. A%(7):
  4993. A%(22):A$=
  4994. A("Hlp13"):A$+=
  4995. A("Hlp13_"+
  4996. (Z%!36))
  4997. A%(M):A$=
  4998. A("HlpPrRc"):
  4999. Z%!36
  5000. 2,4,5,9,&D,&E,16,18,20,23,42:A$+=
  5001. A("HlpPrRc_"+
  5002. (Z%!36))
  5003. A%(&D):A$=
  5004. A("Hlp3")+
  5005. A("Hlp3_"+
  5006. (Z%!36))
  5007. A%(21):
  5008. A%(&F)
  5009. A%(16):A$=
  5010. A("Hlp5"):
  5011. Z%!36=4
  5012. S(A%(16),4)
  5013. A("Hlp5_4_1")
  5014. Z(A%(&D),6):A$+=
  5015. A("Hlp5_4_0")
  5016. Z%!36=8
  5017. x(J$=
  5018. Z(A%(16),8):A$+=
  5019. A("Hlp5_"+
  5020. Z%!36<>-1
  5021. A("Hlp5_"+
  5022. (Z%!36))
  5023. A%(8):A$=
  5024. A("Hlp9"):
  5025. Z%!36
  5026. 0,1,2,3,9:A$+=
  5027. A("Hlp9_"+
  5028. (Z%!36))
  5029. 5,7,&B,&C,&D,16,19,20,22:A$+=
  5030. A("Hlp9_Num_"+
  5031. (Z%!36))
  5032. &E:J$=
  5033. Z(By%,&E):A$+=
  5034. A("Hlp9_Num_14")
  5035. A("Hlp9b")
  5036. A%(9):A$=
  5037. A("Hlp9"):
  5038. Z%!36
  5039. 0,1,2,3,9:A$+=
  5040. A("Hlp9_"+
  5041. (Z%!36))
  5042. 8:A$+=
  5043. A("Hlp9_Swi_8")
  5044. 5:J$=$((S%!(s_%*4))+281):A$+=
  5045. A("Hlp9_Swi")
  5046. 7:J$=$((S%!(s_%*4))+294):A$+=
  5047. A("Hlp9_Swi")
  5048. A("Hlp9b")
  5049. A%(&A):A$=
  5050. A("Hlp9"):
  5051. Z%!36
  5052. 0,1,2,3:A$+=
  5053. A("Hlp9_"+
  5054. (Z%!36))
  5055. 6,&A:A$+=
  5056. A("Hlp9_Str_"+
  5057. (Z%!36))
  5058. A("Hlp9b")
  5059. A%(28):A$=
  5060. A("Hlp14")+
  5061. A("Hlp14_"+
  5062. (Z%!36))
  5063. A%(17):
  5064. A%(19):A$=
  5065. A("Hlp12"):
  5066. (Z%!36)<>-1
  5067. A("Hlp12_"+
  5068. (Z%!36))
  5069. A%(23):A$=
  5070. A("HlpValW")
  5071. A%(18):
  5072. Z(A%(18),1),".")
  5073. A("HlpSav_P")
  5074. A("HlpSav_NP")
  5075. A%(25):
  5076. A%(24):A$=
  5077. A("Hlp2")
  5078. A%(26)
  5079. A%(27):A$=
  5080. A("Hlp11"):
  5081. Z%!36<>-1
  5082. A("Hlp11_"+
  5083. (Z%!36))
  5084. A%(&E):A$=
  5085. A("Hlp1")
  5086. -2:A$=
  5087. A("Hlp8")
  5088. A%(0):A$=
  5089. A("HlpGT_"+
  5090. (Z%!36))
  5091. A%(1):A$=
  5092. A("HlpMD"):
  5093. Z%!36
  5094. 0,2,6:A$+=
  5095. A("HlpMD_"+
  5096. (Z%!36))
  5097. 3,4,5:A$+=
  5098. A("HlpMD_4")
  5099. A%(2):A$=
  5100. A("HlpAxi"):
  5101. Z%!36
  5102. 5,6:A$+=
  5103. A("HlpAxi_5")
  5104. 7,8,&B,&C,&F,16:A$+=
  5105. A("HlpAxi_7")
  5106. 0,20,19:A$+=
  5107. A("HlpAxi_"+
  5108. (Z%!36))
  5109. A%(4):
  5110. Z%!36
  5111. 4,5,6,7,8,9,&A:A$=
  5112. A("HlpGLb_"+
  5113. (Z%!36))
  5114. A%(6):A$=
  5115. A("HlpAxSt"):
  5116. Z%!36
  5117. 3,6,&A,&B,&F,18,22,23,24,25:A$+=
  5118. A("HlpAxSt_"+
  5119. (Z%!36))
  5120. Z%(V%)?607=1
  5121. A("HlpAxSt_26hist")
  5122. A("HlpAxSt_26reg")
  5123. A%(29):A$=
  5124. A("HlpPAx"):
  5125. Z%!36
  5126. 5,6:A$+=
  5127. A("HlpPAx_5")
  5128. 7,8:A$+=
  5129. A("HlpPAx_7")
  5130. 19,20:A$+=
  5131. A("HlpPAx_")+
  5132. (Z%!36)
  5133. A%(32):A$=
  5134. A("HlpFlDx2"):
  5135. Z%!36
  5136. 5,6,7,9,&A,&C:A$+=
  5137. A("HlpFlDx2_"+
  5138. (Z%!36))
  5139. A%(5):A$=
  5140. A("HlpFlDx1"):
  5141. Z%!36
  5142. 0:A$=
  5143. A("HlpFlDx1_0")
  5144. 1,3,5,6,7:A$+=
  5145. A("HlpFlDx1_"+
  5146. (Z%!36))
  5147. A%(35):A$=
  5148. A("HlpGrKey"):
  5149. Z%!36<>-1
  5150. %A$+=
  5151. A("HlpGrKeyP_"+
  5152. ((Z%!36)
  5153. A%(34):A$=
  5154. A("HlpGrKey"):
  5155. Z%!36<>-1
  5156.  A$+=
  5157. A("HlpGrKey_"+
  5158. (Z%!36))
  5159. A%(33):A$=
  5160. A("HlpGrView"):
  5161. Z%!36
  5162. 4,7,8,9,&A:A$+=
  5163. A("HlpGrView_Sca")
  5164. 16,17:A$+=
  5165. A("HlpGrView_PS")
  5166. 19,23:A$+=
  5167. A("HlpGrView_PD")
  5168. &B,&C,&F:A$+=
  5169. A("HlpGrView_"+
  5170. (Z%!36))
  5171. Z%!32<>-1
  5172. Z%!36<>-1
  5173. -aa%)>&7530
  5174. -aa%)<&EA60
  5175. :Cy$=" |m("+
  5176. -aa%)
  5177. 6000)+" minutes since last save)"
  5178. Cy$=" |mRemember to save work regularly. ("+
  5179. -aa%)
  5180. 6000)+" minutes since last save)"
  5181. (A$)+
  5182. (Cy$)<=&FE
  5183. A$+=Cy$
  5184. :Z%!0=(20+
  5185. (A$)+5)
  5186. 3):Z%!&C=ek%:Z%!16=&503:$(Z%+20)=A$+
  5187. &600E7,17,Z%,Nr%:
  5188. Z%!36
  5189. -1,0:A$=
  5190. A("Hlp2")
  5191. S(A%(25),4)
  5192. ?((S%!(ny%*4))+277)=2
  5193. A("Hlp10_Rel")
  5194. A("Hlp10_UnG")
  5195. A("Hlp10_Grp")
  5196. 1,2,3,5,6,7,8,9,&A:A$=
  5197. A("Hlp10_"+
  5198. (Z%!36))
  5199. A("ErrUnSav")
  5200. A("ErrNoUSv")
  5201. Z%!36
  5202. i:A$=
  5203. A("WrnHlpCan_"+
  5204. ~(rJ%
  5205. &F0))
  5206. ay:A$=
  5207. A("WrnHlpCon_"+
  5208. ~(rJ%
  5209. &F0))
  5210. 3:A$=
  5211. A("UsErHlp_"+
  5212. ~(rJ%
  5213. &F0)):
  5214. Z%!36=i
  5215. A("UsErHlpOk")
  5216. &400F4,1,Z%,Z%!32,Z%!36:
  5217. jl%:A$=
  5218. A("HlpBarMnu_"+
  5219. (Z%!0))
  5220. du%=&D
  5221. Z%!4<>-1
  5222. Z%!4=0
  5223. A("Hlp_SFM_A")
  5224. A("Hlp_SFM_D")
  5225. A("Hlp_SFM")
  5226. Gy$=""
  5227. Gy$=$((S%!(T%*4))+8)
  5228. Z%!0=2
  5229. Z%!4<>-1
  5230. .J$=Gy$:A$=
  5231. A("HlpRecMnu_"+
  5232. (Z%!0)+
  5233. (Z%!4))
  5234. A("CuF")+Gy$+".|m":A$+=
  5235. A("HlpRecMnu_"+
  5236. (Z%!0)+
  5237. (Z%!4))
  5238. (t%):A$=
  5239. A("HlpRecMnu_"+
  5240. (Z%!0)+
  5241. (Z%!4))
  5242. _J%,Pl%:A$=
  5243. A("HlpStSMnu_"+
  5244. (Z%!0))
  5245. di%:A$=
  5246. A("HlpGrMnu_"+
  5247. (Z%!0))
  5248. Cl%:J$=
  5249. A("PSX"+
  5250. (Z%!0)):Qy$=
  5251. A("PSY"+
  5252. (Z%!0)):A$=
  5253. A("HlpPgSz")
  5254. G$,Py%,wB%,u%:
  5255. Z%!20
  5256. A%(7):$(Z%+36)=
  5257. F_(I$)+
  5258. (0):G$="Record"
  5259. By%:$(Z%+36)=
  5260. A("Sta")+
  5261. (0):G$="Stats"
  5262. A%(28):J$=Q$:$(Z%+36)=
  5263. A("Fnd")+
  5264. (0):G$="Browser"
  5265. A%(24):$(Z%+36)=
  5266. A("FrT")+
  5267. (0):G$="Freq"
  5268. J%(u%)=Z%!20
  5269. .$(Z%+36)=$(Z%(u%)+8)+
  5270. (0):G$="Graph":wB%=
  5271. G$="Database"
  5272. :Z%!0=&80:Z%!&C=Z%!8:Z%!24=0:$(Z%+28)=G$:Z%?(28+
  5273. (G$))=0:Z%!16=&400CC:
  5274. &400E7,17,Z%,Z%!4:
  5275. Z%!40
  5276. eJ%:Z%!&C=Z%!8:Z%!16=4:
  5277. &400E7,17,Z%,Z%!4:
  5278. I(Z%+44))
  5279. I(Z%+44):
  5280. A("EUs")
  5281. J$=""
  5282. A("Can"):H$=
  5283. A("Lod"):
  5284. A("WDL")
  5285. &FFD:Z%!&C=Z%!8:Z%!16=4:
  5286. &400E7,17,Z%,Z%!4:
  5287. I(Z%+44))
  5288. I(Z%+44):
  5289. A("EUs")
  5290. J$=""
  5291. A("Can"):H$=
  5292. A("Lod"):
  5293. A("WDL")
  5294. &DFE:Z%!&C=Z%!8:Z%!16=4:
  5295. &400E7,17,Z%,Z%!4:
  5296. I(Z%+44),",")
  5297. I(Z%+44):
  5298. A("EUs")
  5299. J$=""
  5300. A("Can"):H$=
  5301. A("Lod"):
  5302. A("WDL")
  5303. I(Py%)
  5304. ?Py%<>0:F$+=
  5305. (?Py%):Py%+=1:
  5306. Z%!20
  5307. A%(M):
  5308. My:Bl%=
  5309. `(A%(M),Z%!24,Z%!28)
  5310. A%(33):
  5311. Cy(A%(33),Z%!24,Z%!28)
  5312. A%(19):
  5313. `(A%(19),Z%!24,Z%!28)
  5314. A%(18):
  5315. (Z%!36)
  5316. A(A%(18),1,I$):
  5317. A(A%(18),0,d$):
  5318. Q(A%(18),
  5319. A("SAs")):AJ%=eJ%:_$=d$
  5320. 2:Ba%=
  5321. A(A%(18),1,
  5322. A("Txt")):
  5323. A(A%(18),0,"File_FFF"):
  5324. Q(A%(18),
  5325. A("ExT")):AJ%=&FFF:_$="File_FFF"
  5326. A(A%(18),1,
  5327. A("CSV")):
  5328. A(A%(18),0,"File_DFE"):
  5329. Q(A%(18),
  5330. A("ExC")):AJ%=&DFE:_$="File_DFE"
  5331. 3:Ba%=
  5332. A(A%(18),1,
  5333. A("Txt")):
  5334. A(A%(18),0,"File_FFF"):
  5335. Q(A%(18),
  5336. A("ExT")):AJ%=&FFF:_$="File_FFF"
  5337. A(A%(18),1,
  5338. A("DrF")):
  5339. A(A%(18),0,"File_AFF"):
  5340. Q(A%(18),
  5341. A("ExG")):AJ%=&AFF:_$="File_AFF"
  5342. `(A%(18),Z%!24,Z%!28)
  5343. M(Jl%,0,"Alt",0,Z+Gy,-1)
  5344. M(Jl%,0,"Alt",0,Z,-1)
  5345. >*J$="":
  5346. j_(Jl%,2,"Del",&80,Z+Gy,-1,Ir%)
  5347. J$=$((S%!(T%*4))+8):
  5348. j_(Jl%,2,"Del",&80,Z,-1,Ir%)
  5349. &400E8,,Z%!20,Z%!24,Z%!28
  5350. A%(5):
  5351. VJ(Z%!32,Z%!24,Z%!28,
  5352. A%(32):
  5353. kJ(Z%!32,Z%!24,Z%!28,
  5354. A(A%(21),21,
  5355. A("NeF")+
  5356. (R%)):$l`%=
  5357. A("DTx"):
  5358. Z(A%(21),8,
  5359. d_:T_%=0:
  5360. uy:fy$=
  5361. A("StringMax"):eB%=
  5362. A("StringMaxFlag"))<>0:
  5363. Y_:Ny$=
  5364. A("NumericalMax"):Wy$=
  5365. A("NumericalMin"):Ry$=
  5366. A("DecimalPlaces"):`J%=
  5367. A("DP_flag"))>0:CB%=
  5368. A("Range_flag"))>0:X`%=
  5369. A("Units_flag"))>0:Py$="":Vy$="":
  5370. oy:Yy$=
  5371. A("On"):ty$=
  5372. A("Off"):
  5373. Z%!16
  5374. Z%!8=4
  5375. J    ei%=
  5376. ta%=1
  5377. J(A%(21))
  5378. T_%<>0
  5379. d_:T_%=0
  5380. (T_%<>1)
  5381. (T_%<>2)
  5382. V    T_%=1
  5383. T_%=2
  5384. T_%<>3
  5385. GJ:T_%=3
  5386. ^!du%=21:
  5387. Y(-1,0),Z%!0,Z%!4)
  5388. Z%!16
  5389. eu(Z%!0,Z%!4)
  5390. U(A%(21),x,1,&FF,1)
  5391. U(A%(21),x,-1,&FF,1)
  5392. Z%!16
  5393. Z(A%(21),Cy,
  5394. Z(A%(21),m,
  5395. Z(A%(21),m,
  5396. Z(A%(21),Cy,
  5397. Z%!16
  5398. T_%=1
  5399. T_%=2:`J%=
  5400. T_%=1:`J%=
  5401. U(A%(21),H,1,8,0):
  5402. T_%=1:`J%=
  5403. Z(A%(21),h,
  5404. U(A%(21),H,-1,8,0):
  5405. T_%=1:`J%=
  5406. Z(A%(21),h,
  5407. T_%=1:`J%=
  5408. Z(A%(21),h,
  5409. U(A%(21),Q,1,&7FFFFFFE,-&7FFFFFFF)
  5410. U(A%(21),Q,-1,&7FFFFFFE,-&7FFFFFFF)
  5411. U(A%(21),G,1,&7FFFFFFE,-&7FFFFFFF)
  5412. U(A%(21),G,-1,&7FFFFFFE,-&7FFFFFFF)
  5413. G(ju%,Z%!0,Z%!4)
  5414. G(_u%,Z%!0,Z%!4)
  5415. H(p%,D%,
  5416. ay%,uJ%,wJ%,xu%,VB%)D%!0=p%:D%!4=uJ%:D%!8=wJ%:D%!&C=xu%:D%!16=VB%:
  5417. &400C2,ay%,D%
  5418. D(p%,D%,
  5419. ay%,uJ%,wJ%,xu%,VB%,Qn%,B$)D%!0=p%:D%!4=uJ%:D%!8=wJ%:D%!&C=xu%:D%!16=VB%:D%!24=Qn%:$Qn%=B$:
  5420. &400C2,ay%,D%
  5421. j(p%,D%,
  5422. ay%,uJ%,wJ%,xu%,VB%,Qn%,B$,hr%)D%!0=p%:D%!4=uJ%:D%!8=wJ%:D%!&C=xu%:D%!16=VB%:D%!24=Qn%:$Qn%=B$:D%!28=hr%:
  5423. &400C2,ay%,D%
  5424. wy(p%,
  5425. QZ%,uJ%,wJ%,xu%,Qn%,py$,k_%)
  5426. j(p%,`_%,DZ%,uJ%,wJ%,xu%,wJ%+52,Qn%,py$,k_%):
  5427. H(p%,ga%,QZ%,xu%+8,wJ%+&A,xu%+40,wJ%+42):
  5428. H(p%,ln%,ar%,xu%+40,wJ%+&A,xu%+72,wJ%+42):
  5429. FJ(p%,
  5430. ay%,IZ%,uJ%,wJ%,cO%)YJ%!0=p%:YJ%!4=uJ%:YJ%!8=wJ%:YJ%!&C=uJ%+44:YJ%!16=wJ%+44:YJ%!20=((YJ%!20)
  5431. -&1F0001)+(IZ%<<16):YJ%!20=((YJ%!20)
  5432. (1<<21)))
  5433. (1<<21)):
  5434. &400C2,ay%,YJ%
  5435. Z(A%(21),8,
  5436. H(A%(21),jJ%,k,N`%,gJ%,n`%,gn%):
  5437. D(A%(21),nJ%,Fy,bo%,zk%,Io%,Fe%,PZ%,
  5438. A("Vld")):
  5439. D(A%(21),Du%,f,ze%,uk%,So%,Je%,aB%,
  5440. A("MxL")):
  5441. wy(A%(21),x,Yy,qy,We%,Ho%,Oo%,mr%,fy$,Ce%):
  5442. L_(gJ%):
  5443. Z(A%(21),f,eB%):
  5444. ta%=1
  5445. `n%<>0
  5446. P(A%(21),f):
  5447. P(A%(21),x):
  5448. P(A%(21),Yy):
  5449. P(A%(21),qy)
  5450. J(A%(23)):
  5451. Z(A%(21),&C,
  5452. H(A%(21),jJ%,k,N`%,RB%,n`%,gn%):
  5453. D(A%(21),Du%,h,Ke%,Mo%,Zr%,Hk%,aB%,
  5454. A("DcP")):
  5455. D(A%(21),Du%,X,vo%,Xr%,kk%,Zk%,_Z%,
  5456. A("Rng")):
  5457. D(A%(21),LJ%,by,tk%,ho%,te%,we%,LJ%+24,
  5458. A("Frm"))
  5459. D(A%(21),LJ%,hy,pk%,Go%,ne%,Sr%,LJ%+24,
  5460. A("NTo")):
  5461. wy(A%(21),H,T_,S_,Kk%,wk%,ce%,be%,Ry$,m`%):
  5462. wy(A%(21),Q,xy,dy,nk%,ro%,Wr%,zr%,Wy$,o`%):
  5463. wy(A%(21),G,__,ey,Cr%,_o%,Yr%,pr%,Ny$,o`%):
  5464. Z(A%(21),h,`J%):
  5465. Z(A%(21),X,CB%)
  5466. D(A%(21),Du%,L,Xk%,fe%,`e%,Ge%,Le%,
  5467. A("UnB")):
  5468. Z(A%(21),L,X`%):
  5469. D(A%(21),LJ%,ty,de%,vk%,to%,Pe%,LJ%+24,
  5470. A("USL")):
  5471. D(A%(21),LJ%,gy,Co%,lk%,Jo%,Ok%,LJ%+24,
  5472. A("UPL")):
  5473. j(A%(21),`_%,R,Ae%,Wo%,ak%,Fr%,Fn%,Vy$,kn%)
  5474. j(A%(21),`_%,Y,Vk%,ao%,Pr%,ae%,ba%,Py$,kn%):
  5475. H(A%(21),Ru%,zy,HB%,rB%,HB%+44,rB%+44):
  5476. H(A%(21),Ru%,Ky,eO%,JO%,eO%+44,JO%+44):
  5477. L_(RB%):
  5478. J(A%(23)):
  5479. Z(A%(21),&D,
  5480. H(A%(21),jJ%,k,N`%,YO%,n`%,gn%):
  5481. D(A%(21),Fu%,w_,Rr%,Qr%,sk%,Ve%,aB%,
  5482. A("Atn")):
  5483. FJ(A%(21),Cy,2,hk%,po%,
  5484. FJ(A%(21),m,2,Oe%,fo%,
  5485. j(A%(21),`_%,a,Br%,De%,Yk%,`o%,or%,Yy$,bB%)
  5486. j(A%(21),`_%,z,Kr%,Tr%,yo%,Ck%,cr%,ty$,bB%):
  5487. L_(YO%):
  5488. L_(h%)
  5489. H(A%(21),ou%,Uy,xk%,xo%+h%,Nk%,Fo%+h%):
  5490. D(A%(21),nJ%,Qy,oe%,Do%+h%,jk%,Dk%+h%,AZ%,
  5491. A("Can")):
  5492. D(A%(21),dJ%,Dy,go%,Ik%+h%,Mk%,Xo%+h%,SZ%,ay$):
  5493. j(A%(21),`_%,Ly,re%,ue%+h%,io%,Gr%+h%,l`%,$l`%,kn%)
  5494. D(A%(21),Fu%,cy,se%,Fk%+h%,zo%,do%+h%,HZ%,
  5495. A("Des")):L%!0=A%(21):
  5496. &400CB,,L%:L%!8=(L%!16)-(uo%)+h%:
  5497. &400C5,,L%:
  5498. &400D1,A%(21),0,-&FFFFFFF,&FFFF,gn%+8:
  5499. C(A%(21),Uy):
  5500. C(A%(21),Qy):
  5501. C(A%(21),Dy):
  5502. C(A%(21),Ly):
  5503. C(A%(21),cy):
  5504. C(A%(21),k):
  5505. C(A%(21),Fy):
  5506. C(A%(21),x):
  5507. C(A%(21),f):
  5508. C(A%(21),Yy):
  5509. C(A%(21),qy):
  5510. Z(A%(21),8,
  5511. C(A%(21),h):
  5512. C(A%(21),X):
  5513. C(A%(21),by):
  5514. C(A%(21),hy):
  5515. C(A%(21),H):
  5516. C(A%(21),T_):
  5517. C(A%(21),S_):
  5518. C(A%(21),Q):
  5519. C(A%(21),xy):
  5520. C(A%(21),dy):
  5521. C(A%(21),G):
  5522. C(A%(21),__):
  5523. C(A%(21),ey):
  5524. C(A%(21),L):
  5525. C(A%(21),ty):
  5526. C(A%(21),gy):
  5527. C(A%(21),R):
  5528. C(A%(21),Y)
  5529. C(A%(21),zy):
  5530. C(A%(21),Ky):
  5531. Z(A%(21),&C,
  5532. C(A%(21),Cy):
  5533. C(A%(21),m):
  5534. C(A%(21),a):
  5535. C(A%(21),z):
  5536. Z(A%(21),&D,
  5537. C(A%(21),w_)
  5538. TJ(f_%)
  5539. Iy%:Iy%=f_%!277:
  5540. A(A%(21),21,$(f_%+8)):$l`%=$(f_%+21):
  5541. 0:fy$=
  5542. ((Iy%>>8)
  5543. &FF):eB%=((f_%?279)
  5544. 1)=1:
  5545. B(f_%+537,k_%,64)
  5546. 1:Ny$=
  5547. (f_%!281):Wy$=
  5548. (f_%!285):Ry$=
  5549. (f_%?279):`J%=
  5550. :CB%=((f_%?278)
  5551. 1)=1:X`%=((f_%?278)
  5552. 2)=2:Py$=$(f_%+289):Vy$=$(f_%+301):
  5553. 2:Ny$=
  5554. (|(f_%+281)):Wy$=
  5555. (|(f_%+286)):Ry$=
  5556. A("DecimalPlaces"):`J%=
  5557. :CB%=((f_%?278)
  5558. 1)=1:X`%=((f_%?278)
  5559. 2)=2:Py$=$(f_%+291):Vy$=$(f_%+303):
  5560. 3:Yy$=$(f_%+281):ty$=$(f_%+294):
  5561. :T_%=(Iy%
  5562. &FF):
  5563. J(A%(17)):
  5564. 0,0,Ou%,ru%:
  5565. C(A%(17),i):
  5566. C(A%(17),ay):
  5567. *WimpKillSprite ic_database
  5568. *WimpKillSprite ic_browser
  5569. *WimpKillSprite ic_record
  5570. *WimpKillSprite ic_stats
  5571. *WimpKillSprite ic_freq
  5572. *WimpKillSprite ic_graph
  5573. Z_(Ye%)
  5574. rJ%=0:
  5575. &400DD,qi%,&4B534154:
  5576. rJ%=0:
  5577. &FF0)+q
  5578. Qu(T%):ia%=
  5579. &400D3,,Z%:Z%!24=508:
  5580. &400E7,8,Z%,TO%
  5581. &400DD,qi%,&4B534154:
  5582. &41504,bi%:
  5583. fy(T%,ca%):
  5584. Wu(T%):
  5585. Hl(T%):
  5586. si(T%):
  5587. kl(T%):
  5588. uJ(T%):
  5589. qJ(T%):
  5590. cu(T%):
  5591. ei(T%):
  5592. ry(Sy$)
  5593. h_:Ll%=Bo%:
  5594. SJ(SO%,J%(SO%))
  5595. rJ(X%,Y%)ta%=1:ay$=
  5596. A("AlI"):
  5597. Q(A%(21),
  5598. A("AlF")):
  5599. TJ(S%!(T%*4)):
  5600. H(A%(21),Ru%,t,UO%,fO%,UO%+44,fO%+44)
  5601. i_(A%(21)):
  5602. Cy(A%(21),X%,Y%):
  5603. oJ(X%,Y%)
  5604. Cy(A%(22),X%,Y%):
  5605. Cy(A%(26),X%+16,Y%+&64):
  5606. Ru(X%,Y%)
  5607. Jy%,I_%,Ay%:v%!0=A%(35):
  5608. &400CC,,v%
  5609. v%!(84+4)>0
  5610. Jy%=0
  5611. (v%!(84+4))-1:
  5612. C(A%(35),Jy%):
  5613. :v%!0=0:v%!4=-(((Su%-tJ%)+8)*((Z%(V%)!668)))+Su%:v%!8=&FFFF:v%!&C=0:
  5614. &400D7,A%(35),v%:I_%=0:Jy%=0:
  5615. Z%(V%)!668>0
  5616. Ay%=0
  5617. (Z%(V%)!668)-1:B$=
  5618. $(Z%(V%)+684+(44*Ay%)+0),&B):
  5619. D(A%(35),LJ%,Jy%,ik%,tJ%+I_%,`k%,Su%+I_%,LJ%+24,B$):KJ%!24=!(Z%(V%)+684+(44*Ay%)+36):
  5620. H(A%(35),KJ%,Jy%,Za%,tJ%+I_%,Za%+Ol%,Su%+I_%):
  5621. H(A%(35),tl%,Jy%,`O%,IO%+I_%,`O%+44,IO%+44+I_%)
  5622. KJ%!24=!(Z%(V%)+684+(44*Ay%)+32):
  5623. H(A%(35),KJ%,Jy%,da%,tJ%+I_%,da%+Ol%,Su%+I_%):
  5624. H(A%(35),tl%,Jy%,vB%,yO%+I_%,vB%+44,yO%+44+I_%):KJ%!24=!(Z%(V%)+684+(44*Ay%)+40):
  5625. H(A%(35),KJ%,Jy%,ja%,tJ%+I_%,ja%+Ol%,Su%+I_%)
  5626. H(A%(35),Ru%,Jy%,zO%,_O%+I_%,zO%+44,_O%+44+I_%):I_%-=(Su%-tJ%)+8:
  5627. Z(A%(34),2,(Z%(V%)!605)
  5628. &80):
  5629. N(A%(35),X%+8,Y%+&96,-1):
  5630. N(A%(34),X%,Y%,A%(35)):
  5631. k_(X%,Y%)
  5632. t<>-2
  5633. C(A%(21),t):t=-2
  5634. :ta%=2:ay$=
  5635. A("AdI"):
  5636. Q(A%(21),
  5637. A("AdF")):
  5638. i_(A%(21)):
  5639. Cy(A%(21),X%,Y%):
  5640. Z%!20=h_%
  5641. Z%!20=b_%
  5642. Z%!20=Qu%
  5643. &400CF,,Yy%:
  5644. Yy%!8=1
  5645. `(A%(19),!Yy%,Yy%!4)
  5646. G(A%(19),!Yy%,Yy%!4)
  5647. iu%:!J%=A%(35):J%!4=Z`%:
  5648. &400CE,,J%:
  5649. &400C4,,J%:
  5650. 0:J%!28=0
  5651. 1:J%!28=8
  5652. 2:J%!28=4
  5653. 3:J%!28=2
  5654. 4:J%!28=1
  5655. 5:J%!28=3
  5656. 6:J%!28=&C
  5657. :J%!4=A%(35):
  5658. &400C2,Z`%,J%+4:
  5659. &400D1,A%(35),0,-&FFFF,&FFFF,0
  5660. mu%:!J%=A%(35):J%!4=Z`%:
  5661. &400CE,,J%:
  5662. &400C4,,J%:J%!28=Z%!0:J%!4=A%(35):
  5663. &400C2,Z`%,J%+4:
  5664. &400D1,A%(35),0,-&FFFF,&FFFF,0
  5665. Z%!4=1
  5666. G`%=1:$si%="R2;Sdescending"
  5667. G`%=0:$si%="R2;Sascending"
  5668. :l_%?0=Z%!0:l_%?1=G`%:l_%?2=&FF:y$=($((S%!((Z%!0)*4)+8))):
  5669. A(A%(&D),6,y$):
  5670. 21:T%=Z%!0:`n%=?((S%!(T%*4))+277):
  5671. TJ(S%!((Z%!0)*4))
  5672. __(Z%!0)
  5673. 27:_y%=Z%!0:
  5674. A(A%(27),0,$((S%!(_y%*4))+8))
  5675. !Z%=0
  5676. A(A%(29),fu%,""):C%(BJ%,__%)=0:G%(BJ%,__%)=4:ky%=!((Z%(V%)+632)+8):ky%=ky%
  5677. 16):ky%=ky%
  5678. 4:!((Z%(V%)+632)+8)=ky%
  5679. A(A%(29),fu%,$((S%!(((!Z%)-1)*4))+8)):C%(BJ%,__%)=(!Z%)-1:G%(BJ%,__%)=?((S%!(((!Z%)-1)*4))+277):ky%=!((Z%(V%)+632)+8):ky%=ky%
  5680. 16):ky%=ky%
  5681. 4:!((Z%(V%)+632)+8)=ky%
  5682. BJ%=0
  5683. VJ(Z%!0,Yy%!0,Yy%!4,
  5684. !Z%=1
  5685. A(A%(2),fu%,""):C%(BJ%,__%)=-1:G%(BJ%,__%)=-1
  5686. kJ(Z%!0,Yy%!0,Yy%!4,
  5687. X_(Z%!0)
  5688. Ll%=Z%!0:
  5689. A("Can"):H$=
  5690. A("Cha"):Bo%=Z%!0:
  5691. A("SAl")
  5692. !Z%=0
  5693. e`%=&C
  5694. A("SyF")
  5695. &400A0,0,b_%,Z%,
  5696. &FF," "),&FF
  5697. ,,,D$
  5698. e`%=&C
  5699. sy(D$,Y_,Vr%):Oy$=D$
  5700. sy(D$,v_,Ak%):dy$=D$
  5701. A(A%(18),1,I$):
  5702. A(A%(18),0,d$):
  5703. Q(A%(18),
  5704. A("SAs")):AJ%=eJ%:_$=d$:
  5705. G(A%(18),Yy%!0,Yy%!4):
  5706. A(A%(18),1,I$):
  5707. A(A%(18),0,d$):
  5708. Q(A%(18),
  5709. A("SAs")):AJ%=eJ%:_$=d$:
  5710. G(A%(18),Yy%!0,Yy%!4)
  5711. A(A%(18),1,
  5712. A("CSV")):
  5713. A(A%(18),0,"File_DFE"):
  5714. Q(A%(18),
  5715. A("ExC")):AJ%=&DFE:_$="File_DFE":
  5716. G(A%(18),Yy%!0,Yy%!4)
  5717. A(A%(18),1,
  5718. A("Txt")):
  5719. A(A%(18),0,"File_FFF"):
  5720. Q(A%(18),
  5721. A("ExT")):AJ%=&FFF:_$="File_FFF":Ba%=
  5722. G(A%(18),Yy%!0,Yy%!4)
  5723. A(A%(18),1,
  5724. A("Txt")):
  5725. A(A%(18),0,"File_FFF"):
  5726. Q(A%(18),
  5727. A("ExT")):AJ%=&FFF:_$="File_FFF":Ba%=
  5728. G(A%(18),Yy%!0,Yy%!4)
  5729. My:Bl%=
  5730. G(A%(M),Yy%!0,Yy%!4)
  5731. 0:`n%=?((S%!(T%*4))+277):
  5732. rJ(Yy%!0,(Yy%!4)-fn%)
  5733. k_(Yy%!0,(Yy%!4)-fn%)
  5734. r_(T%)
  5735. Yy(t%)
  5736. tJ(t%)
  5737. _J%,Pl%,Kn%:RJ%=Z%!0:
  5738. A(A%(27),7,
  5739. A("MnuOp"+
  5740. (RJ%)))
  5741. xy(Z%!0):
  5742. _u%:$Fn%="":
  5743. &400D5,,_u%,Z%,Z%+64:
  5744. $Fn%=
  5745. $(Z%+64))+$Fn%:$(Z%+64)=
  5746. $(Z%+64)):
  5747. $(Z%+64))="."
  5748. ($(Z%+64))=0:
  5749. A(A%(21),R,$Fn%)
  5750. ju%:$ba%="":
  5751. &400D5,,ju%,Z%,Z%+64:
  5752. $ba%=
  5753. $(Z%+64))+$ba%:$(Z%+64)=
  5754. $(Z%+64)):
  5755. $(Z%+64))="."
  5756. ($(Z%+64))=0:
  5757. A(A%(21),Y,$ba%)
  5758. A(A%(18),1,
  5759. A("DrF")):
  5760. A(A%(18),0,"File_AFF"):
  5761. Q(A%(18),
  5762. A("ExG")):AJ%=&AFF:_$="File_AFF":
  5763. G(A%(18),Yy%!0,Yy%!4)
  5764. G(A%(&F),Yy%!0,Yy%!4)
  5765. ii(Yy%!0,Yy%!4)
  5766. A(A%(33),16,
  5767. A("PS"+
  5768. (Z%!0))):
  5769. A(A%(33),19,
  5770. A("PSX"+
  5771. (Z%!0))):
  5772. A(A%(33),23,
  5773. A("PSY"+
  5774. (Z%!0)))
  5775. Yy%!8=1
  5776. G(Ja%,!Yy%,Yy%!4)
  5777. Ja%=b_%
  5778. G(A%(19),!Yy%,Yy%!4)
  5779. AJ*Set tmp 1
  5780. -'*RMEnsure stronghelp 2.03 Set tmp 0
  5781. .a*If tmp = 0 then filer_run <Database$Dir>.HelpScript else StrongHelp <Database$Dir>.EDS !Root
  5782. *Unset tmp
  5783. Yy(Q%)ty%=Q%:t%=ty%:i%=0:Wl%=!((!S%)+277):
  5784. &400D1,A%(7),0,-&FFFFFFF,&FFFF,0:
  5785. &400DD,qi%,&4B534154:
  5786. &41504,bi%:
  5787. A("Qit"):L$=
  5788. A("Con"):
  5789. A("UnQ")
  5790. 7DZ%!&C=Z%!8:TO%=Z%!4:
  5791. &400E7,19,Z%,TO%:
  5792. ((Z%!20)
  5793. (Z%!0<24)
  5794. 8    ia%=
  5795. A("Qit"):L$=
  5796. A("Con"):
  5797. A("UnQ")
  5798. Q(p%,W$)
  5799. M`%,Ar%,Vo%:M`%=v%:!M`%=p%:
  5800. &400CC,,M`%+1:$(M`%!76)=
  5801. W$,M`%!84):L%!0=p%:
  5802. &400E0,,L%:Ar%=L%!&C:Vo%=L%!16:
  5803. &400CB,,L%:
  5804. &400D1,-1,L%!4,L%!16,Ar%,Vo%:
  5805. Z%!0<>Y`%
  5806. &400C8,,Z%
  5807. py%<>0
  5808. A%(7):
  5809. A%(23):
  5810. A%(24):
  5811. A%(35):
  5812. Bl(Z%)
  5813. m(Z%!0)<>-1
  5814. m(Z%!0))
  5815. ti(Z%)
  5816. ti(Dy%)
  5817. fi(Dy%):
  5818. &400CA,,Dy%
  5819. Bl(Dy%)
  5820. Ay%,N%(),jy$:
  5821. Z%(V%)!668>0
  5822. N%(Z%(V%)!668,2):J%!0=A%(35):
  5823. Ay%=0
  5824. Z%(V%)!668:J%!4=(Ay%*7)+1:
  5825. &400CE,,J%:N%(Ay%,0)=J%!28:J%!4=(Ay%*7)+3:
  5826. &400CE,,J%:N%(Ay%,1)=J%!28:J%!4=(Ay%*7)+5:
  5827. &400CE,,J%:N%(Ay%,2)=J%!28:
  5828. :mi%=((Z%!4)-(Z%!20)):fi%=((Z%!16)-(Z%!24)):
  5829. py%:I_%=0
  5830. Ay%=0
  5831. (Z%(V%)!668)-1:u_%!0=Za%:u_%!4=tJ%+I_%:u_%!8=Za%+Ol%:u_%!&C=Su%+I_%:
  5832. &400E2,,u_%:
  5833. N%(Ay%,0)<>-1
  5834. &40743,N%(Ay%,0),,,1<<8,0:
  5835. Za%+8+mi%,tJ%+I_%+6+fi%,Ol%-20,(Su%-tJ%)-&E
  5836. :u_%!0=da%:u_%!8=da%+Ol%:
  5837. &400E2,,u_%:
  5838. N%(Ay%,1)<>-1
  5839. &40743,N%(Ay%,1),,,1<<8,0:
  5840. da%+8+mi%,tJ%+I_%+6+fi%,Ol%-20,(Su%-tJ%)-&E
  5841. :u_%!0=ja%:u_%!8=ja%+Ol%:
  5842. &400E2,,u_%:
  5843. (Z%(V%)?607)=0
  5844. (Z%(V%)?607)=1
  5845. N%(Ay%,2)
  5846. 1:G$="Fill4"
  5847. 2:G$="Fill3"
  5848. 4:G$="Fill2"
  5849. 8:G$="Fill1"
  5850. 3:G$="Fill5"
  5851. &C:G$="Fill6"
  5852. G$="Fill0"
  5853. N%(Ay%,2)>=0
  5854. N%(Ay%,2)<=6
  5855. G$="Style"+
  5856. (N%(Ay%,2))
  5857. G$="Style0"
  5858. :v%!64=N%(Ay%,1):v%!68=N%(Ay%,0):
  5859. &4075D,j_%,G$,v%+64,,0:
  5860. &40740,j_%,G$,-1,-1,v%+64,0:
  5861. &400ED,256,j_%,G$,,,,v%,0:
  5862. 46,308,j_%,G$,ja%+8+mi%,tJ%+I_%+6+fi%,8,v%,v%+64:I_%-=(Su%-tJ%)+8:
  5863. &400CA,,Dy%
  5864. &400CA,,Dy%
  5865. fi(Dy%)
  5866. D`%,Xa%,X%,Y%,Uy%,h%:D`%=(Dy%!28)+(Dy%!20-Dy%!4):Xa%=((Dy%!16)-(Dy%!24)):Uy%=D`%
  5867. vl%:h%=(Xa%-((Xa%-(Dy%!40))
  5868. hJ%))-hJ%:
  5869. X%=Dy%!28-Uy%
  5870. Dy%!36
  5871. Y%=h%
  5872. (Dy%!32)-hJ%
  5873. -hJ%:
  5874. 46,564,j_%,d`%,X%,Y%,0,wi%,Q`%:
  5875. Z%!0<>A%(17)
  5876. &400E6,2:
  5877. Dy%!4,Dy%!8,Dy%!4,Dy%!16:
  5878. (Dy%!4)+2,(Dy%!8)+2,(Dy%!4+2),(Dy%!16)-2:
  5879. &400E6,4:
  5880. (Dy%!&C)-2,Dy%!8,(Dy%!&C)-2,Dy%!16:
  5881. (Dy%!&C)-4,(Dy%!16)-4,(Dy%!&C)-4,Dy%!8:
  5882. (Dy%!4)+2,Dy%!8
  5883. Z%!0=A%(17)
  5884. &400E6,&B:
  5885. Dy%!4,Dy%!8,(Dy%!&C)-(Dy%!4)-2,(Dy%!16)-(Dy%!8)-2
  5886. Ni(Dy%)
  5887. Xa%,X%,Y%,Uy%,h%:Xa%=(Dy%!16)-(Dy%!24):Uy%=D`%
  5888. vl%:h%=(Xa%-((Xa%-(Dy%!40))
  5889. hJ%))-hJ%:
  5890. X%=Dy%!28-Uy%
  5891. Dy%!36
  5892. Y%=h%
  5893. (Dy%!32)-hJ%
  5894. -hJ%:
  5895. 46,564,j_%,d`%,X%,Y%,0,wi%,Q`%:
  5896. W_(Dy%)
  5897. mi%,fi%:mi%=Dy%!20-Dy%!4:fi%=Dy%!24-Dy%!16:D`%=Dy%!28+mi%:wa%=Dy%!32+fi%:tr%=Dy%!36+mi%:Ra%=Dy%!40+fi%:
  5898. fa%,d_%:fa%=60:
  5899. py%<>0:
  5900. W_(Z%):
  5901. d_%=((-Ra%+36)
  5902. ((-wa%+36)
  5903. fa%):
  5904. rl(d_%):
  5905. &400CA,,Z%
  5906. i_(WJ,U,A)=((U+A-1-WJ)
  5907. A)+1+WJ
  5908. uB%,Ur%,U,J,fa%,Va%,ua%,ll%,`y%,fy%,R_%,w%,K%,Ly%,@%,Yi%:
  5909. ?((S%!(ny%*4))+277)=1
  5910. q Ly%=&A^(?((S%!(ny%*4))+279))
  5911. Ly%=1
  5912. :ll%=
  5913. S(A%(25),4):U=
  5914. u:fa%=40:Va%=(Z%!4)-(Z%!20):ua%=(Z%!16)-(Z%!24):R_%=_%!(ny%*4):w%=
  5915. F(ny%):fy%=0:
  5916. py%<>0:
  5917. W_(Z%):uB%=(((-Ra%)-Ri%)
  5918. fa%):Ur%=(((-wa%)-Ri%)
  5919. fa%):J=U+(uB%*A):
  5920. ?((S%!(ny%*4))+277)=2
  5921. x(R_%,w%,J-A,0,P%-1)
  5922. z(R_%,w%,J-A,0,P%-1)
  5923. :fy%=0:Yi%=@%:
  5924. d_%=uB%
  5925. 1:Y%=ua%-(Ri%+(d_%*40))-&C:
  5926. Va%+20,Y%:
  5927. A("WiV")
  5928. ">=";(J-A)/Ly%;" <=";J/Ly%;
  5929. 18);P%-1-`y%;
  5930. 26);((P%-1-`y%)/P%)*&64;
  5931. 42);P%
  5932. ?((S%!(ny%*4))+277)=2
  5933. x(R_%,w%,J,`y%,P%-1)
  5934. z(R_%,w%,J,`y%,P%-1)
  5935. (fy%-`y%)
  5936. ">=";(J-A)/Ly%;" <";J/Ly%;
  5937. 18);fy%-`y%;
  5938. 26);:@%="F.2":
  5939. ;((fy%-`y%)/P%)*&64;"%";
  5940. 42);:@%=Yi%:
  5941. ;fy%+1
  5942. ">=";(J-A)/Ly%;" <";J/Ly%;
  5943. 18);"-";
  5944. 26);"-";
  5945. 42);fy%+1
  5946. :`y%=fy%
  5947. s(R_%,w%,J,fy%,P%-1):
  5948. s`y%=
  5949. o(R_%,w%,J,fy%,P%-1):
  5950. ;J/Ly%;
  5951. 18);fy%-`y%+1;
  5952. 26);:@%="F.2":
  5953. ;((fy%-`y%+1)/P%)*&64;"%";
  5954. 42);:@%=Yi%:
  5955. ;fy%+1
  5956. ;J/Ly%;
  5957. 18);"-";
  5958. 26);"-"
  5959. 42);fy%+1
  5960. :J+=A:
  5961. &400CA,,Z%
  5962. rl(d_%)
  5963. v$,X%,Y%,pJ%,n%,m%,v$,oy%:
  5964. d_%<=6
  5965. d_%>=1
  5966. Va%=(Z%!4)-(Z%!20):ua%=(Z%!16)-(Z%!24):v$=
  5967. A("Row"+
  5968. (d_%)):Y%=ua%-(60*(d_%-1))-24:
  5969. pJ%=1
  5970. (v$):oy%=
  5971. v$,pJ%,1)):
  5972. (ji%?((oy%-32)
  5973. (1<<((oy%-32)
  5974. &400E6,&D
  5975. &400E6,&B
  5976. Va%+&88+(20*pJ%),Y%:
  5977. v$,pJ%,1):
  5978. Oa(u%)
  5979. Tn%,n%,m%,Ha%,ay%:
  5980. F%(u%)
  5981. v%!0=Z%(u%)!680:v%!4=0:v%!8=0:v%!&C=Z%(u%)!680:v%!16=((Z%!4)-(Z%!20))*256:v%!20=(((Z%!16)-(Z%!24))*256)-(((Z%(u%)!676)/(1<<16))*v%!&C):Tn%=(Z%(u%)!4)+Z%(u%):v%!&64=0:v%!&68=0:v%!&6C=0:v%!&70=0:v%!&74=((Z%!4)-(Z%!20)+8)*400
  5982. v%!&78=((Z%!16)-(Z%!24)-512)*400:v%!&7C=((Z%!4)-(Z%!20)+8+((((Z%(u%)!672)/(1<<16))*v%!0)/256))*400:v%!&80=((Z%!16)-(Z%!24)+8)*400
  5983. py%<>0:
  5984. (F%(u%)
  5985. (8+16))=(8+16)
  5986. &65540,0,Tn%,(Z%(u%)!0)-(Z%(u%)!4),v%,Z%+28
  5987. ;A_%:
  5988. _F%(u%)=F%(u%)
  5989. 16):F$(u%)="Internal redraw error, graph has not been drawn properly":j$=""
  5990. _(a$,&E):
  5991. &4074F,ay%,-256,0,&E:n%=0:Ha%=1:m%=-2:
  5992. n%=m%+2:
  5993. &40085,,
  5994. F$(u%),n%),((((Z%(u%)!672)/(1<<16))*v%!0)/256)*400,512*400,32,
  5995. (F$(u%))
  5996. ,G%,,,,m%
  5997. &40086,ay%,
  5998. F$(u%),n%),672,((Z%!4)-(Z%!20)+8)*400,((Z%!16)-(Z%!24)-(40*Ha%))*400,v%+&64,,m%:Ha%+=1:
  5999. m%+n%>=
  6000. (F$(u%)):
  6001. Ha%+=1:n%=0:m%=-2:
  6002. n%=m%+2:
  6003. &40085,,
  6004. j$,n%),((((Z%(u%)!672)/(1<<16))*v%!0)/256)*400,512*400,32,
  6005. ,G%,,,,m%:
  6006. &40086,ay%,
  6007. j$,n%),&A0,((Z%!4)-(Z%!20)+8)*400,((Z%!16)-(Z%!24)-(40*Ha%))*400,v%+&64,,m%:Ha%+=1:
  6008. m%+n%>=
  6009. yy(ay%)
  6010. &400CA,,Z%
  6011. BJ(u%,I$,A_%,JZ%)
  6012. L_%,qk%,oi%,ki%,P_%,Q_%,xB%,hB%,qO%,wO%,Pu%,Nu%,j,IJ%,py%:
  6013. &406C0:
  6014. &80140
  6015. ,,,qk%:Tn%=(Z%(u%)!4)+Z%(u%):KO%=(Z%(u%)!0)-(Z%(u%)!4):L_%=
  6016. (I$):
  6017. &80145,L_%,"Graph":
  6018. &80149,L_%:
  6019. #L_%:
  6020. ("Remove "+I$):
  6021. A("PrC")
  6022. &80143
  6023. ,oi%,ki%,xB%,hB%,qO%,wO%:
  6024. (oi%-qO%)>xB%
  6025. #P_%=(oi%-((oi%-qO%)*2))/400*256
  6026. P_%=(oi%-(xB%*2))/400*256
  6027. (ki%-wO%)>hB%
  6028. #Q_%=(ki%-((ki%-wO%)*2))/400*256
  6029. Q_%=(ki%-(hB%*2))/400*256
  6030. :Pu%=(Z%(u%)!672):Nu%=(Z%(u%)!676):
  6031. (P_%>=Q_%
  6032. Pu%>=Nu%)
  6033. (P_%<Q_%
  6034. Pu%<Nu%)
  6035. (P_%/Pu%)<(Q_%/Nu%)
  6036. IJ%=(P_%/Pu%)*(1<<16)
  6037. IJ%=(Q_%/Nu%)*(1<<16)
  6038. IJ%>(1<<16)
  6039. IJ%=(1<<16)
  6040. (0):v%!16=(oi%/2)-((((Pu%/256*400)*IJ%)/(1<<16))/2):v%!20=(ki%/2)-((((Nu%/256*400)*IJ%)/(1<<16))/2)
  6041. (P_%/Nu%)<(Q_%/Pu%)
  6042. IJ%=(P_%/Nu%)*(1<<16)
  6043. IJ%=(Q_%/Pu%)*(1<<16)
  6044. IJ%>(1<<16)
  6045. IJ%=(1<<16)
  6046. (90):v%!16=(oi%/2)+((((Nu%/256*400)*IJ%)/(1<<16))/2):v%!20=(ki%/2)-((((Pu%/256*400)*IJ%)/(1<<16))/2)
  6047. :v%!0=IJ%*
  6048. (j):v%!4=IJ%*
  6049. (j):v%!8=IJ%*-
  6050. (j):v%!&C=IJ%*
  6051. (j):v%!24=0:v%!28=0:v%!32=Pu%/256:v%!36=Nu%/256:
  6052. (1<<29)
  6053. &45542,0,Tn%,KO%
  6054. &8014B,,v%+24,v%+0,v%+16,-256:
  6055. &8014C,JZ%,v%+40,0,0
  6056. py%<>0:
  6057. &45540,0,Tn%,KO%,0,v%+40:
  6058. &8014D,,v%+40
  6059. &80148,L_%:
  6060. #L_%:
  6061. &406C1:
  6062. D`%,tr%,wa%,Ra%,U%,cJ%,V`%:
  6063. (P%+1)*cy%<=296
  6064. cJ%=(296/(P%+1))
  6065. cJ%=cy%
  6066. py%<>0:
  6067. W_(Z%):
  6068. Ni(Z%):V`%=((-wa%)
  6069. (cJ%)):
  6070. V`%>P%
  6071. V`%=P%
  6072. U%=((-Ra%)
  6073. (cJ%))
  6074. Xa(U%):
  6075. &400CA,,Z%
  6076. Jy$,oy%,y%:
  6077. Ql(k_%,k_%+63):Jy$=
  6078. A("DefaultCharacters"):
  6079. Jy$=""
  6080. y%=k_%
  6081. k_%+63:?y%=&FF:
  6082. (Jy$):oy%=
  6083. Jy$,y%,1)):k_%?((oy%-32)
  6084. 8)=(k_%?((oy%-32)
  6085. 8))+(1<<((oy%-32)
  6086. q$,bZ%:q$=
  6087. Z(A%(21),21):
  6088. q$=""
  6089. A("FlB")
  6090. j(q$)<>-1
  6091. j(q$)<>T%
  6092. A("Exi")
  6093. ZJ%:ZJ%=
  6094. Z(A%(21),x)):
  6095. ZJ%=0
  6096. ZJ%>&FF
  6097. A("FlL")
  6098. S(A%(21),X)
  6099. Z(A%(21),G)=""
  6100. Z(A%(21),Q)=""
  6101. A("FMV")
  6102. Z(A%(21),G))<=
  6103. Z(A%(21),Q))
  6104. A("FMV")
  6105. S(A%(21),h)
  6106. Z(A%(21),H))<0
  6107. Z(A%(21),H))>8
  6108. A("DpR")
  6109. C$,X$:C$=
  6110. Z(A%(21),a):X$=
  6111. Z(A%(21),z):
  6112. C$=""
  6113. X$=""
  6114. A("SSB")
  6115. C(C$,X$)=0
  6116. A("SS=")
  6117. j(q$)
  6118. JIu%=-1:
  6119. Iu%+=1:
  6120. Iu%=(R%-1)
  6121. $((S%!(Iu%*4))+8)=q$:
  6122. $((S%!(Iu%*4))+8)=q$
  6123. Y(x`%,A_%)
  6124. Iu%:b_%=-1:Qu%=-1:h_%=
  6125. U(28):
  6126. X(h_%,"Fld","Fields"):
  6127. Iu%=0
  6128. ((R%-1)*4)
  6129. Iu%=((R%-1)*4)
  6130. A_%+=&80
  6131. :h_%=
  6132. U(28+(24*((Iu%>>2)+1))):
  6133. ly(h_%,Iu%>>2,$((S%!Iu%)+8),A_%,x`%):
  6134. :=h_%
  6135. I_(x`%,Ql%)
  6136. Iu%,A_%,M%,Aa%:b_%=-1:Qu%=-1:h_%=
  6137. U(52):
  6138. X(h_%,"Fld","Fields"):A_%=8:Aa%=0:
  6139. M(h_%,0,"FMF",8,Z,x`%):Aa%=1
  6140. M(h_%,Aa%,"Non",2,Z,-1):Aa%+=1:
  6141. (R%-1):
  6142. M%=R%-1
  6143. A_%+=&80
  6144. :h_%=
  6145. U(28+(24*(M%+1+Aa%))):
  6146. ly(h_%,M%+Aa%,$((S%!(M%*4))+8),A_%,x`%):
  6147. :=h_%
  6148. y_%:b_%=-1:h_%=-1:Qu%=
  6149. U(28+(24*16)):
  6150. X(Qu%,"SSM","SubsetMenuWidth"):
  6151. y_%=0
  6152. ly(Qu%,y_%,$(vy%+(H_%*y_%)),0,-1):
  6153. ly(Qu%,y_%,$(vy%+(H_%*y_%)),&80,-1):=Qu%
  6154. tJ(U%)
  6155. U%=ty%
  6156. ty%<>P%
  6157. Yy(P%)
  6158. A("DRS")
  6159. A("DlB"):L$=
  6160. A("Can"):
  6161. U%<ty%
  6162. A("Rec")+
  6163. (U%+1)
  6164. A("Rec")+
  6165. A("DFW")
  6166. r_(M%)H$=
  6167. A("DlB"):L$=
  6168. A("Can"):J$=$((S%!(M%*4))+8):
  6169. A("DFW"):
  6170. B(A%,B%,C%)
  6171. L(M%,QJ%)
  6172. G%,r%,iB%:G%=S%!(M%*4):iB%=Y_%-G%:
  6173. QJ%>0
  6174. `y(QJ%):Y_%+=QJ%
  6175. Zy(QJ%):zy%=Y_%+QJ%:ly%=Y_%+QJ%:Y_%+=QJ%
  6176. M%<=R%-1
  6177. B(G%,G%+QJ%,iB%):
  6178. r%=M%
  6179. R%-1:S%!(r%*4)+=QJ%:
  6180. M%<=R%-1
  6181. B(G%,G%+QJ%,iB%):
  6182. r%=M%
  6183. R%-1:S%!(r%*4)+=QJ%:
  6184. `y(QJ%):Y_%+=QJ%
  6185. Zy(QJ%):zy%=Y_%+QJ%:ly%=Y_%+QJ%:Y_%+=QJ%
  6186. Qu(M%)
  6187. Ji%,sy%,my%,w%,Tu%,ZJ%,G%,r%:
  6188. &406C0:
  6189. Zy%<>-1
  6190. Ay(A%(7),Zy%)
  6191. Tl(M%)
  6192. Fu(M%):
  6193. x%>=&FF
  6194. sy%=(((x%*2)+&3FF)
  6195. &3FF)
  6196. sy%=&400
  6197. :Ji%=qu%:Xu%=!(S%!(M%*4)):my%=
  6198. F(M%):
  6199. M%<(R%-1)
  6200.     6ZJ%=
  6201. O(M%):w%=my%+ZJ%:Tu%=wy%-w%:
  6202. By(my%,0,w%,Tu%)
  6203. :m_%=_%!((M%+1)*4):pu%=(_%!((R%-1)*4))+sy%:
  6204. B(m_%,m_%-sy%,pu%-m_%):m_%=Ky%!0:pu%=Ky%!(M%*4):
  6205. B(m_%,m_%-sy%,pu%-m_%):m_%=Ky%!((M%+1)*4):pu%=(Ky%!((R%-1)*4))+sy%:
  6206. B(m_%,m_%-(2*sy%),pu%-m_%):G%=S%!(M%*4):
  6207. B(Ji%,Ji%-(2*sy%),G%-Ji%):G%=S%!((M%+1)*4)
  6208. B(G%,G%-(Xu%+(2*sy%)),Y_%-G%):
  6209. M%-1:S%!(r%*4)-=(2*sy%):Ky%!(r%*4)-=sy%:
  6210. r%=M%+1
  6211. R%-1:S%!((r%-1)*4)=(S%!(r%*4))-(Xu%+(2*sy%)):_%!((r%-1)*4)=(_%!(r%*4))-sy%:Ky%!((r%-1)*4)=(Ky%!(r%*4))-(2*sy%):
  6212. m_%=Ky%!0:pu%=Ky%!(M%*4):
  6213. B(m_%,m_%-sy%,pu%-m_%):G%=S%!(M%*4):
  6214. B(Ji%,Ji%-(sy%*2),G%-Ji%):
  6215. R%-2:S%!(r%*4)-=(sy%*2):Ky%!(r%*4)-=sy%:
  6216. ZJ%=wy%-my%:
  6217. By(my%,0,0,0)
  6218. :Ji%-=(2*sy%):qu%-=(2*sy%):wy%-=ZJ%:
  6219. `y(-(Xu%+(2*sy%)))
  6220. :Y_%-=(2*sy%)+Xu%:
  6221. Sl%=M%
  6222. (Sl%=0:y$=$((S%!0)+8):
  6223. A(A%(&D),6,y$)
  6224. :R%-=1:
  6225. LJ:cy%-=60:
  6226. R%<=1
  6227. P(A%(&D),7):
  6228. A(A%(&D),6,
  6229. A("NoF")):
  6230. P(A%(&D),6):
  6231. &406C1:
  6232. -(cy%*(P%+1))<=O_%
  6233. 1O_%=-(cy%*(P%+1)):
  6234. _(A%(7),O_%):
  6235. a(A%(7)):
  6236. (-(cy%*(P%+1))>O_%)
  6237. ((cy%*(P%+1))>296)
  6238. -O_%=-(cy%*(P%+1)):
  6239. _(A%(7),O_%):
  6240. a(A%(7))
  6241. O_%=296:
  6242. _(A%(7),O_%):
  6243. a(A%(7))
  6244. &400D1,A%(7),0,-&FFFFFFF,&FFFF,0:
  6245. wJ:L%!0=A%(7):
  6246. &400CB,,L%:
  6247. N(A%(&D),L%!4+On%,L%!8+on%,L%!28):
  6248. za%,r%,hO%:za%=0:
  6249. (x%-1):hO%=!
  6250. T_(r%):
  6251. hO%>za%
  6252. za%=hO%:``%=r%
  6253. :=za%
  6254. J_(M%,rO%,he%)
  6255. F_%,WJ%,K%:F_%=he%!(M%*4):WJ%=0:K%=
  6256. ((F_%!WJ%)
  6257. &FFFF)=rO%
  6258. B(F_%+WJ%+2,F_%+WJ%,(x%*2)-(WJ%+2)):K%=
  6259. :WJ%+=2:
  6260. WJ%=(x%*2):
  6261. V_(M%,Me%,Yo%,he%)
  6262. F_%,WJ%,K%:F_%=he%!(M%*4):WJ%=0:K%=
  6263. ((F_%!WJ%)
  6264. &FFFF)=Me%
  6265. ++F_%?WJ%=Yo%
  6266. &FF:F_%?(WJ%+1)=Yo%>>8:K%=
  6267. :WJ%+=2:
  6268. WJ%=(x%*2):
  6269. b(M%,Me%)
  6270. F_%,WJ%,K%:F_%=_%!(M%*4):WJ%=-2:K%=
  6271. WJ%+=2:
  6272. ((F_%!WJ%)
  6273. &FFFF)=Me%:=WJ%>>1
  6274. e_%,Gy%,Ko%,zu%:
  6275. &406C0:
  6276. /!Ry%=Y_%+4:
  6277. C_((!b%),&FFFF,t%)
  6278. d_:Ko%=
  6279. L(t%):
  6280. B(Re%,Ko%,((wy%+3)
  6281. 3))):zu%=(!((!b%)+(t%*2)))
  6282. &FFFF:
  6283. J_(-1,zu%,_%):
  6284. V_(-1,``%,zu%,_%):
  6285. (R%-1):
  6286. J_(M%,zu%,_%):
  6287. J_(M%,zu%,Ky%):
  6288. V_(M%,``%,zu%,_%):
  6289. V_(M%,``%,zu%,Ky%):
  6290. :P%-=1:x%-=1:ly%-=(wy%+3)
  6291. 3):ty%=P%:vn%=0:
  6292. Zy%<>-1
  6293. Ay(A%(7),Zy%):i%=&FFFFFFF:Zy%=-1
  6294. &406C1:
  6295. Ty(M%,ZJ%)
  6296. 5.p`%=
  6297. F(M%)+
  6298. O(M%):
  6299. By(p`%,ZJ%,p`%,wy%-p`%)
  6300. By(my%,`B%,oB%,Tu%)
  6301. Xi%,Dl%,zn%,Wn%,RO%,bO%,pO%,q%,n%,m%,He%,U%:
  6302. &406C0:Dl%=(my%+`B%+Tu%+3)
  6303. 3):Xi%=(wy%+3)
  6304. Dl%>Xi%
  6305. 8wRO%=0:bO%=my%+`B%:pO%=oB%:oB%=0:
  6306. my%,Tu%:q%=-1:n%=x%-1:m%=0:zn%=ly%-Xi%:Wn%=zy%+(Dl%*(x%-1)):
  6307. i((Dl%*x%)-(Xi%*x%))
  6308. RO%=my%+`B%:bO%=0:pO%=0:q%=1:n%=0:m%=x%-1:zn%=zy%:Wn%=zy%
  6309. U%=n%
  6310. &406C4,((U%-n%)/x%)*&64*q%:
  6311. B(zn%+pO%,Wn%+bO%,my%):
  6312. B(zn%+oB%,Wn%+RO%,Tu%):Wn%+=Dl%*q%:zn%+=Xi%*q%:He%=((!((!e%)+(U%*4)))-zy%)/Xi%:!((!e%)+(U%*4))=zy%+(He%*Dl%):
  6313. :ly%=zy%+(x%*Dl%):
  6314. Dl%<Xi%
  6315. i((Dl%*x%)-(Xi%*x%))
  6316. &406C1:
  6317. Ry(w%)
  6318. r%:w%=(w%+3)
  6319. Zy(w%):
  6320. fJ%<>-1
  6321. B(fJ%,fJ%+w%,xJ%-fJ%):
  6322. Z%(r%)<>0
  6323. r%<=16:Z%(r%)+=w%:r%+=1:
  6324. fJ%<>-1
  6325. Z%(r%)<>0
  6326. r%<16:Z%(r%)+=w%:r%+=1:
  6327. B(fJ%,fJ%+w%,xJ%-fJ%)
  6328. Zy(w%)
  6329. fJ%<>-1
  6330. E<fJ%+=w%:xJ%+=w%:
  6331. 1,"Graphs are not word alligned"
  6332. `y(w%)
  6333. mJ%,Ki%,v_%:v_%=w%-(zy%-Y_%):
  6334. v_%>0
  6335. ly%<=(zy%+v_%)
  6336. i(v_%):
  6337. B(zy%,zy%+v_%,ly%-zy%):
  6338. U%=(!e%)
  6339. (!e%)+((x%-1)*4)
  6340. 4:!U%+=v_%:
  6341. :zy%+=v_%:ly%+=v_%
  6342. Ki%=(wy%+3)
  6343. 3):mJ%=((v_%+(Ki%-1))
  6344. Ki%)*Ki%:
  6345. i(mJ%):
  6346. B(zy%,ly%,mJ%):
  6347. U%=(!e%)
  6348. (!e%)+((x%-1)*4)
  6349. !U%<=(zy%+v_%)
  6350. !U%+=ly%-zy%
  6351. :ly%+=mJ%:zy%+=mJ%
  6352. v_%<0
  6353. zy%>=(ly%+v_%)
  6354. B(zy%,zy%+v_%,ly%-zy%):
  6355. U%=(!e%)
  6356. (!e%)+((x%-1)*4)
  6357. 4:!U%+=v_%:
  6358. :zy%+=v_%:ly%+=v_%:
  6359. i(v_%)
  6360. Ki%=((wy%+3)
  6361. 3)):mJ%=-(v_%
  6362. Ki%)*Ki%:
  6363. mJ%>0
  6364. B(ly%-mJ%,zy%-mJ%,mJ%):
  6365. U%=(!e%)
  6366. (!e%)+((x%-1)*4)
  6367. !U%>=(zy%+v_%)
  6368. !U%-=ly%-zy%
  6369. :ly%-=mJ%:zy%-=mJ%:
  6370. i(-mJ%)
  6371. hy(M%,Cy%,Tk%)
  6372. L(0,Cy%):qu%+=Cy%:
  6373. M%<(R%-1)
  6374. B((_%!((M%+1)*4)),(_%!((M%+1)*4))+Cy%,qu%-(_%!((M%+1)*4))):
  6375. r%=M%+1
  6376. ((R%*2)-1):_%!((r%+Tk%)*4)+=Cy%:
  6377. Ga(F_%,rO%,Q%)
  6378. B(F_%+(Q%*2),F_%+(Q%*2)+2,(x%*2)-(Q%*2)):F_%?(Q%*2)=rO%:F_%?((Q%*2)+1)=rO%>>8:
  6379. C_(F_%,`%,Q%)F_%?(Q%*2)=`%:F_%?((Q%*2)+1)=`%>>8:
  6380. l(F%,O%,Sy%,Gy%)
  6381. xO%,Mu%,Bu%:au%+=1:
  6382. ((P%^2)>>1)<>0
  6383. &406C4,(au%*&2710)/((P%^2)>>1)
  6384. :Mu%=Sy%:Bu%=Gy%:xO%=!(
  6385. M(Sy%+((Gy%-Sy%)>>1),O%)+F%):
  6386. M(Sy%,O%)+F%)<xO%:Sy%+=1:
  6387. M(Gy%,O%)+F%)>xO%:Gy%-=1:
  6388. Sy%<=Gy%
  6389. O%?(Sy%*2),O%?(Gy%*2):
  6390. O%?((Sy%*2)+1),O%?((Gy%*2)+1):Sy%+=1:Gy%-=1
  6391. Sy%>Gy%:
  6392. Mu%<Gy%
  6393. l(F%,O%,Mu%,Gy%)
  6394. Sy%<Bu%
  6395. l(F%,O%,Sy%,Bu%)
  6396. o(F%,O%,Sy%,Gy%)
  6397. s_,Mu%,Bu%:au%+=1:
  6398. &406C4,(au%*&2710)/((P%^2)>>1):Mu%=Sy%:Bu%=Gy%:s_=|(
  6399. M(Sy%+((Gy%-Sy%)>>1),O%)+F%):
  6400. M(Sy%,O%)+F%)<s_:Sy%+=1:
  6401. M(Gy%,O%)+F%)>s_:Gy%-=1:
  6402. Sy%<=Gy%
  6403. O%?(Sy%*2),O%?(Gy%*2):
  6404. O%?((Sy%*2)+1),O%?((Gy%*2)+1):Sy%+=1:Gy%-=1
  6405. Sy%>Gy%:
  6406. Mu%<Gy%
  6407. o(F%,O%,Mu%,Gy%)
  6408. Sy%<Bu%
  6409. o(F%,O%,Sy%,Bu%)
  6410. Xy(F%,O%,Sy%,Gy%)
  6411. sy$,Mu%,Bu%:au%+=1:
  6412. &406C4,(au%*&2710)/((P%^2)>>1):Mu%=Sy%:Bu%=Gy%:sy$=$(
  6413. M(Sy%+((Gy%-Sy%)>>1),O%)+F%):
  6414. M(Sy%,O%)+F%),sy$)<0:Sy%+=1:
  6415. M(Gy%,O%)+F%),sy$)>0:Gy%-=1:
  6416. Sy%<=Gy%
  6417. O%?(Sy%*2),O%?(Gy%*2):
  6418. O%?((Sy%*2)+1),O%?((Gy%*2)+1):Sy%+=1:Gy%-=1
  6419. Sy%>Gy%:
  6420. Mu%<Gy%
  6421. Xy(F%,O%,Mu%,Gy%)
  6422. Sy%<Bu%
  6423. Xy(F%,O%,Sy%,Bu%)
  6424. h(M%,F%,O%,Sy%,Gy%)
  6425. x%<=1
  6426. GO%,oO%,sn%:sn%=
  6427. C($((S%!(M%*4))+281),$((S%!(M%*4))+294)):
  6428. sn%=-1
  6429. GO%=0:oO%=1
  6430. oO%=0:GO%=1
  6431. M(Sy%,O%)+F%))=GO%
  6432. Sy%<Gy%:Sy%+=1:
  6433. M(Gy%,O%)+F%))=oO%
  6434. Gy%>Sy%:Gy%-=1:
  6435. Sy%<Gy%
  6436. O%?(Sy%*2),O%?(Gy%*2):
  6437. O%?((Sy%*2)+1),O%?((Gy%*2)+1):Sy%+=1:Gy%-=1
  6438. Sy%>=Gy%:
  6439. sa(M%,Iy%,F%,O%,Sy%,Gy%)
  6440. Xy(F%,O%,Sy%,Gy%)
  6441. l(F%,O%,Sy%,Gy%)
  6442. o(F%,O%,Sy%,Gy%)
  6443. h(M%,F%,O%,Sy%,Gy%)
  6444. G_(Sy%,Gy%)
  6445. iO%,Mu%,Bu%,O%:au%+=1:
  6446. &406C0:
  6447. &406C4,(au%*&2710)/((P%^2)/2):O%=!b%:Mu%=Sy%:Bu%=Gy%:iO%=
  6448. M(Sy%+((Gy%-Sy%)/2),O%):
  6449. M(Sy%,O%),iO%)<0:Sy%+=1:
  6450. M(Gy%,O%),iO%)>0:Gy%-=1:
  6451. Sy%<=Gy%
  6452. O%?(Sy%*2),O%?(Gy%*2):
  6453. O%?((Sy%*2)+1),O%?((Gy%*2)+1):Sy%+=1:Gy%-=1
  6454. Sy%>Gy%:
  6455. Mu%<Gy%
  6456. G_(Mu%,Gy%)
  6457. Sy%<Bu%
  6458. G_(Sy%,Bu%)
  6459. &406C1:
  6460. l(O%,F%,M$,n%,m%)
  6461. S$,xy%,J`%,Uu%:xy%=((m%+n%)/2):p_%=m%-n%:J`%=n%:
  6462. xy%>=n%
  6463. xy%<=m%:S$=$(
  6464. M(xy%,O%)+F%):Uu%=
  6465. C(M$,S$):
  6466. Uu%=0
  6467. :=xy%
  6468. Uu%>0
  6469. n%=xy%+1
  6470. m%=xy%-1
  6471. :p_%=m%-n%:xy%=((m%+n%)/2):
  6472. :=xy%
  6473. `(O%,F%,M$,n%,m%)
  6474. S$,xy%,J`%:xy%=((m%+n%)/2):p_%=m%-n%:J`%=n%:
  6475. xy%>=n%
  6476. xy%<=m%:S$=$(
  6477. M(xy%,O%)+F%):
  6478. M$=S$
  6479. :=xy%
  6480. M$>S$
  6481. n%=xy%+1
  6482. m%=xy%-1
  6483. :p_%=m%-n%:xy%=((m%+n%)/2):
  6484. :=xy%
  6485. w_(O%,F%,M$,
  6486. k%,Ty%)
  6487. J_%,Hy%:J_%=k%:Hy%=
  6488. J_%>=0
  6489. M(J_%,O%)+F%),M$)=0
  6490. J_%-=1
  6491. :J_%+=1:Hy%=
  6492. M(k%,O%)+F%),M$)=0
  6493.     k%+=1
  6494. (k%>Ty%)
  6495. Hy%):k%-=1:=J_%
  6496. k_(O%,F%,M$,
  6497. k%,Ty%)
  6498. J_%,Hy%:J_%=k%:Hy%=
  6499. J_%>=0
  6500. M(J_%,O%)+F%)=M$
  6501. J_%-=1
  6502. :J_%+=1:Hy%=
  6503. M(k%,O%)+F%)=M$
  6504.     k%+=1
  6505. (k%>Ty%)
  6506. Hy%):k%-=1:=J_%
  6507. Y_(O%,F%,M$,n%,m%)
  6508. k%:k%=
  6509. l(O%,F%,M$,n%,m%):Hy%=
  6510. k%>=0
  6511. M(k%,O%)+F%),M$)>=0
  6512.     k%-=1
  6513. O_(O%,F%,M$,n%,m%)
  6514. k%:k%=
  6515. `(O%,F%,M$,n%,m%):Hy%=
  6516. k%>=0
  6517. M(k%,O%)+F%)>=M$
  6518.     k%-=1
  6519. u_(O%,F%,M$,n%,m%)
  6520. k%:k%=
  6521. l(O%,F%,M$,n%,m%):Hy%=
  6522. M(k%,O%)+F%),M$)=0
  6523.     k%+=1
  6524. (k%>m%)
  6525. Hy%):=k%
  6526. b_(O%,F%,M$,n%,m%)
  6527. k%:k%=
  6528. `(O%,F%,M$,n%,m%):Hy%=
  6529. M(k%,O%)+F%)=M$
  6530.     k%+=1
  6531. (k%>m%)
  6532. Hy%):=k%
  6533. i(O%,F%,F,n%,m%)
  6534. U_,xy%,J`%:xy%=((m%+n%)/2):p_%=m%-n%:J`%=n%:
  6535. xy%>=n%
  6536. xy%<=m%:U_=|(
  6537. M(xy%,O%)+F%):
  6538. :=xy%
  6539. n%=xy%+1
  6540. m%=xy%-1
  6541. :p_%=m%-n%:xy%=((m%+n%)/2):
  6542. :=xy%
  6543. s(O%,F%,`%,n%,m%)
  6544. sn%,xy%,J`%:xy%=((m%+n%)/2):p_%=m%-n%:J`%=n%:
  6545. xy%>=n%
  6546. xy%<=m%:sn%=!(
  6547. M(xy%,O%)+F%):
  6548. sn%=`%
  6549. :=xy%
  6550. `%>sn%
  6551. n%=xy%+1
  6552. m%=xy%-1
  6553. :p_%=m%-n%:xy%=((m%+n%)/2):
  6554. :=xy%
  6555. z_(O%,F%,F,
  6556. k%,Ty%)
  6557. J_%,Hy%:J_%=k%:Hy%=
  6558. J_%>=0
  6559. M(J_%,O%)+F%)=F
  6560. J_%-=1
  6561. :J_%+=1:Hy%=
  6562. M(k%,O%)+F%)=F
  6563.     k%+=1
  6564. (k%>Ty%)
  6565. Hy%):k%-=1:=J_%
  6566. A_(O%,F%,F,c%,Ty%,q%)
  6567. Q%,K%:Q%=c%:K%=c%:
  6568. (K%=c%)
  6569. ((Q%+q%)>=0)
  6570. ((Q%+q%)<=Ty%):Q%+=q%:
  6571. M(Q%,O%)+F%)=F
  6572.     K%=Q%
  6573. Ny(O%,F%,F,c%,Ty%,q%)
  6574. Q%,K%:Q%=c%:K%=c%:
  6575. (K%=c%)
  6576. ((Q%+q%)>=0)
  6577. ((Q%+q%)<=Ty%):Q%+=q%:
  6578. M(Q%,O%)+F%)<>F
  6579.     K%=Q%
  6580. Wy(O%,F%,F,c%,Ty%,q%)
  6581. Q%,K%:Q%=c%:K%=c%:
  6582. (K%=c%)
  6583. ((Q%+q%)>=0)
  6584. ((Q%+q%)<=Ty%):Q%+=q%:
  6585. M(Q%,O%)+F%)>=F
  6586.     K%=Q%
  6587. y_(O%,F%,F,c%,Ty%,q%)
  6588. Q%,K%:Q%=c%:K%=c%:
  6589. (K%=c%)
  6590. ((Q%+q%)>=0)
  6591. ((Q%+q%)<=Ty%):Q%+=q%:
  6592. M(Q%,O%)+F%)>=F
  6593.     K%=Q%
  6594. Zy(O%,F%,F,c%,Ty%,q%)
  6595. Q%,K%:Q%=c%:K%=c%:
  6596. (K%=c%)
  6597. ((Q%+q%)>=0)
  6598. ((Q%+q%)<=Ty%):Q%+=q%:
  6599. M(Q%,O%)+F%)>=F
  6600.     K%=Q%
  6601. sy(O%,F%,F,c%,Ty%,q%)
  6602. Q%,K%:Q%=c%:K%=c%:
  6603. (K%=c%)
  6604. ((Q%+q%)>=0)
  6605. ((Q%+q%)<=Ty%):Q%+=q%:
  6606. M(Q%,O%)+F%)<F
  6607.     K%=Q%
  6608. Oy(O%,F%,M$,c%,Ty%,q%)
  6609. Q%,K%:Q%=c%:K%=c%:
  6610. (K%=c%)
  6611. ((Q%+q%)>=0)
  6612. ((Q%+q%)<=Ty%):Q%+=q%:
  6613. M(Q%,O%)+F%)=M$
  6614.     K%=Q%
  6615. fy(O%,F%,M$,c%,Ty%,q%)
  6616. Q%,K%:Q%=c%:K%=c%:
  6617. (K%=c%)
  6618. ((Q%+q%)>=0)
  6619. ((Q%+q%)<=Ty%):Q%+=q%:
  6620. M(Q%,O%)+F%)<>M$
  6621.     K%=Q%
  6622. ey(O%,F%,M$,c%,Ty%,q%)
  6623. Q%,K%:Q%=c%:K%=c%:
  6624. (K%=c%)
  6625. ((Q%+q%)>=0)
  6626. ((Q%+q%)<=Ty%):Q%+=q%:
  6627. M(Q%,O%)+F%)>=M$
  6628.     K%=Q%
  6629. hy(O%,F%,M$,c%,Ty%,q%)
  6630. Q%,K%:Q%=c%:K%=c%:
  6631. (K%=c%)
  6632. ((Q%+q%)>=0)
  6633. ((Q%+q%)<=Ty%):Q%+=q%:
  6634. M(Q%,O%)+F%)>M$
  6635.     K%=Q%
  6636. S_(O%,F%,M$,c%,Ty%,q%)
  6637. Q%,K%:Q%=c%:K%=c%:
  6638. (K%=c%)
  6639. ((Q%+q%)>=0)
  6640. ((Q%+q%)<=Ty%):Q%+=q%:
  6641. M(Q%,O%)+F%)<M$
  6642.     K%=Q%
  6643. Ry(O%,F%,M$,c%,Ty%,q%)
  6644. Q%,K%:Q%=c%:K%=c%:
  6645. (K%=c%)
  6646. ((Q%+q%)>=0)
  6647. ((Q%+q%)<=Ty%):Q%+=q%:
  6648. M(Q%,O%)+F%)<=M$
  6649.     K%=Q%
  6650. wy(O%,F%,M$,c%,Ty%,q%)
  6651. Q%,K%:Q%=c%:K%=c%:
  6652. (K%=c%)
  6653. ((Q%+q%)>=0)
  6654. ((Q%+q%)<=Ty%):Q%+=q%:
  6655. M(Q%,O%)+F%),
  6656. (M$))=M$
  6657.     K%=Q%
  6658. qy(O%,F%,M$,c%,Ty%,q%)
  6659. Q%,K%:Q%=c%:K%=c%:
  6660. (K%=c%)
  6661. ((Q%+q%)>=0)
  6662. ((Q%+q%)<=Ty%):Q%+=q%:
  6663. M(Q%,O%)+F%),
  6664. (M$))<>M$
  6665.     K%=Q%
  6666. Iy(O%,F%,M$,c%,Ty%,q%)
  6667. Q%,K%:Q%=c%:K%=c%:
  6668. (K%=c%)
  6669. ((Q%+q%)>=0)
  6670. ((Q%+q%)<=Ty%):Q%+=q%:
  6671. M(Q%,O%)+F%),
  6672. (M$))=M$
  6673.     K%=Q%
  6674. Uy(O%,F%,M$,c%,Ty%,q%)
  6675. Q%,K%:Q%=c%:K%=c%:
  6676. (K%=c%)
  6677. ((Q%+q%)>=0)
  6678. ((Q%+q%)<=Ty%):Q%+=q%:
  6679. M(Q%,O%)+F%),
  6680. (M$))<>M$
  6681.     K%=Q%
  6682. ry(O%,F%,M$,c%,Ty%,q%)
  6683. Q%,K%:Q%=c%:K%=c%:
  6684. (K%=c%)
  6685. ((Q%+q%)>=0)
  6686. ((Q%+q%)<=Ty%):Q%+=q%:
  6687. M(Q%,O%)+F%),M$)
  6688.     K%=Q%
  6689. iy(O%,F%,M$,c%,Ty%,q%)
  6690. Q%,K%:Q%=c%:K%=c%:
  6691. (K%=c%)
  6692. ((Q%+q%)>=0)
  6693. ((Q%+q%)<=Ty%):Q%+=q%:
  6694. M(Q%,O%)+F%),M$)
  6695.     K%=Q%
  6696. Q_(O%,F%,M$,c%,Ty%,q%)
  6697. Q%,K%:Q%=c%:K%=c%:
  6698. (K%=c%)
  6699. ((Q%+q%)>=0)
  6700. ((Q%+q%)<=Ty%):Q%+=q%:
  6701. M(Q%,O%)+F%),M$)=0
  6702.     K%=Q%
  6703. ny(O%,F%,M$,c%,Ty%,q%)
  6704. Q%,K%:Q%=c%:K%=c%:
  6705. (K%=c%)
  6706. ((Q%+q%)>=0)
  6707. ((Q%+q%)<=Ty%):Q%+=q%:
  6708. M(Q%,O%)+F%),M$)<>0
  6709.     K%=Q%
  6710. _y(O%,F%,M$,c%,Ty%,q%)
  6711. Q%,K%:Q%=c%:K%=c%:
  6712. (K%=c%)
  6713. ((Q%+q%)>=0)
  6714. ((Q%+q%)<=Ty%):Q%+=q%:
  6715. M(Q%,O%)+F%),M$)>=0
  6716.     K%=Q%
  6717. M_(O%,F%,M$,c%,Ty%,q%)
  6718. Q%,K%:Q%=c%:K%=c%:
  6719. (K%=c%)
  6720. ((Q%+q%)>=0)
  6721. ((Q%+q%)<=Ty%):Q%+=q%:
  6722. M(Q%,O%)+F%),M$)>0
  6723.     K%=Q%
  6724. H_(O%,F%,M$,c%,Ty%,q%)
  6725. Q%,K%:Q%=c%:K%=c%:
  6726. (K%=c%)
  6727. ((Q%+q%)>=0)
  6728. ((Q%+q%)<=Ty%):Q%+=q%:
  6729. M(Q%,O%)+F%),M$)<0
  6730.         K%=Q%
  6731. Ty(O%,F%,M$,c%,Ty%,q%)
  6732. Q%,K%:Q%=c%:K%=c%:
  6733. (K%=c%)
  6734. ((Q%+q%)>=0)
  6735. ((Q%+q%)<=Ty%):Q%+=q%:
  6736. M(Q%,O%)+F%),M$)<=0
  6737.     K%=Q%
  6738. Dy(O%,F%,M$,c%,Ty%,q%)
  6739. Q%,K%:Q%=c%:K%=c%:
  6740. (K%=c%)
  6741. ((Q%+q%)>=0)
  6742. ((Q%+q%)<=Ty%):Q%+=q%:
  6743. M(Q%,O%)+F%),M$)
  6744.     K%=Q%
  6745. oy(O%,F%,M$,c%,Ty%,q%)
  6746. Q%,K%:Q%=c%:K%=c%:
  6747. (K%=c%)
  6748. ((Q%+q%)>=0)
  6749. ((Q%+q%)<=Ty%):Q%+=q%:
  6750. M(Q%,O%)+F%),M$)
  6751.     K%=Q%
  6752. By(O%,F%,M$,c%,Ty%,q%)
  6753. Q%,K%:Q%=c%:K%=c%:
  6754. (K%=c%)
  6755. ((Q%+q%)>=0)
  6756. ((Q%+q%)<=Ty%):Q%+=q%:
  6757. M(Q%,O%)+F%),M$)
  6758.     K%=Q%
  6759. ly(O%,F%,M$,c%,Ty%,q%)
  6760. Q%,K%:Q%=c%:K%=c%:
  6761. (K%=c%)
  6762. ((Q%+q%)>=0)
  6763. ((Q%+q%)<=Ty%):Q%+=q%:
  6764. M(Q%,O%)+F%),M$)
  6765.     K%=Q%
  6766. uy(O%,F%,M$,c%,Ty%,q%)
  6767. Q%,K%:Q%=c%:K%=c%:
  6768. (K%=c%)
  6769. ((Q%+q%)>=0)
  6770. ((Q%+q%)<=Ty%):Q%+=q%:
  6771. M(Q%,O%)+F%),M$)
  6772.     K%=Q%
  6773. Ky(O%,F%,M$,c%,Ty%,q%)
  6774. Q%,K%:Q%=c%:K%=c%:
  6775. (K%=c%)
  6776. ((Q%+q%)>=0)
  6777. ((Q%+q%)<=Ty%):Q%+=q%:
  6778. M(Q%,O%)+F%),M$)
  6779.     K%=Q%
  6780. yy(O%,F%,`%,c%,Ty%,q%)
  6781. Q%,K%:Q%=c%:K%=c%:
  6782. (K%=c%)
  6783. ((Q%+q%)>=0)
  6784. ((Q%+q%)<=Ty%):Q%+=q%:
  6785. M(Q%,O%)+F%)=`%
  6786. !    K%=Q%
  6787. U_(O%,F%,`%,c%,Ty%,q%)
  6788. Q%,K%:Q%=c%:K%=c%:
  6789. (K%=c%)
  6790. ((Q%+q%)>=0)
  6791. ((Q%+q%)<=Ty%):Q%+=q%:
  6792. M(Q%,O%)+F%)<>`%
  6793. $    K%=Q%
  6794. Z_(O%,F%,`%,c%,Ty%,q%)
  6795. Q%,K%:Q%=c%:K%=c%:
  6796. (K%=c%)
  6797. ((Q%+q%)>=0)
  6798. ((Q%+q%)<=Ty%):Q%+=q%:
  6799. M(Q%,O%)+F%)>=`%
  6800. '    K%=Q%
  6801. ky(O%,F%,`%,c%,Ty%,q%)
  6802. Q%,K%:Q%=c%:K%=c%:
  6803. (K%=c%)
  6804. ((Q%+q%)>=0)
  6805. ((Q%+q%)<=Ty%):Q%+=q%:
  6806. M(Q%,O%)+F%)<=`%
  6807. *    K%=Q%
  6808. B_(O%,F%,`%,c%,Ty%,q%)
  6809. Q%,K%:Q%=c%:K%=c%:
  6810. (K%=c%)
  6811. ((Q%+q%)>=0)
  6812. ((Q%+q%)<=Ty%):Q%+=q%:
  6813. M(Q%,O%)+F%)>`%
  6814. -    K%=Q%
  6815. Cy(O%,F%,`%,c%,Ty%,q%)
  6816. Q%,K%:Q%=c%:K%=c%:
  6817. (K%=c%)
  6818. ((Q%+q%)>=0)
  6819. ((Q%+q%)<=Ty%):Q%+=q%:
  6820. M(Q%,O%)+F%)<`%
  6821. 0    K%=Q%
  6822. o(O%,F%,`%,
  6823. k%,Ty%)
  6824. J_%,Hy%:J_%=k%:Hy%=
  6825. J_%>=0
  6826. M(J_%,O%)+F%)=`%
  6827. J_%-=1
  6828. :J_%+=1:Hy%=
  6829. M(k%,O%)+F%)=`%
  6830. 6    k%+=1
  6831. (k%>Ty%)
  6832. Hy%):k%-=1:=J_%
  6833. z(O%,F%,`%,n%,m%)
  6834. k%:k%=
  6835. s(O%,F%,`%,n%,m%):Hy%=
  6836. k%>=0
  6837. M(k%,O%)+F%)>=`%
  6838. :    k%-=1
  6839. x(O%,F%,F,n%,m%)
  6840. k%:k%=
  6841. i(O%,F%,F,n%,m%):Hy%=
  6842. k%>=0
  6843. M(k%,O%)+F%)>=F
  6844. >    k%-=1
  6845. f_(O%,F%,F,n%,m%)
  6846. k%:k%=
  6847. i(O%,F%,F,n%,m%):Hy%=
  6848. M(k%,O%)+F%)=F
  6849. B    k%+=1
  6850. (k%>m%)
  6851. Hy%):=k%
  6852. l_(O%,F%,`%,n%,m%)
  6853. k%,Hy%:k%=
  6854. s(O%,F%,`%,n%,m%):Hy%=
  6855. M(k%,O%)+F%)=`%
  6856. F    k%+=1
  6857. (k%>m%)
  6858. Hy%):=k%
  6859. Py(M%,Ml%,Tk%,LZ%)
  6860. Iy%,H`%,G%,F%,R_%,n%,m%,p_%:R_%=_%!((M%+Tk%)*4):Iy%=?((S%!(M%*4))+277):F%=
  6861. F(M%):n%=0:m%=LZ%-1:H`%=
  6862. M(Ml%,R_%):G%=0:p_%=m%-n%:
  6863. p_%>=1:p_%=m%-n%:
  6864. n%<=Ml%
  6865. m%>=Ml%
  6866. p_%-=1
  6867. :G%=n%+(p_%/2):
  6868. G%=Ml%
  6869. L    G%+=1
  6870. G_(Iy%,H`%+F%,
  6871. M(G%,R_%)+F%,M%)<0
  6872. N    m%=G%
  6873. n%=G%+1
  6874. jJ(Ml%,n%,R_%):
  6875. R_(Ml%)
  6876. p_%,H`%,G%,R_%,n%,m%:R_%=!b%:n%=0:m%=P%-1:H`%=
  6877. M(Ml%,R_%):G%=0:p_%=m%-n%:
  6878. p_%>=1:p_%=m%-n%:
  6879. n%<=Ml%
  6880. m%>=Ml%
  6881. p_%-=1
  6882. :G%=n%+(p_%/2):
  6883. G%=Ml%
  6884. T    G%+=1
  6885. h(H`%,
  6886. M(G%,R_%))<0
  6887. V    m%=G%
  6888. n%=G%+1
  6889. jJ(Ml%,n%,R_%):=n%
  6890. jJ(ra%,zl%,F_%)
  6891. F`%:F`%=(F_%!(ra%*2)):
  6892. zl%>ra%
  6893. B(F_%+(ra%*2)+2,F_%+(ra%*2),(zl%-ra%-1)*2):F_%?((zl%-1)*2)=F`%
  6894. &FF:F_%?(((zl%-1)*2)+1)=F`%>>8
  6895. B(F_%+(zl%*2),F_%+(zl%*2)+2,(ra%-zl%)*2):F_%?(zl%*2)=F`%:F_%?((zl%*2)+1)=F`%>>8
  6896. G_(Iy%,li%,Ma%,M%)
  6897. C$,X$:
  6898. C($li%,$Ma%)
  6899. (!li%)>(!Ma%)
  6900. (!li%)=(!Ma%)
  6901. (|li%)>(|Ma%)
  6902. (|li%)=(|Ma%)
  6903. ?li%=?Ma%
  6904. (?li%=0)
  6905. p/C$=$((S%!(M%*4))+281):X$=$((S%!(M%*4))+294)
  6906. X$=$((S%!(M%*4))+281):C$=$((S%!(M%*4))+294)
  6907. C(C$,X$)
  6908. 1,"Invalid field type"
  6909. h(BZ%,sr%)
  6910. Uu%,`i%,F%:`i%=l_%:Uu%=0:
  6911. Uu%=0
  6912. ?`i%<>&FF:F%=!((S%!((?`i%)*4))+4):Uu%=
  6913. G_(?((S%!((?`i%)*4))+277),F%+BZ%,F%+sr%,?`i%):
  6914. Uu%<>0
  6915. (`i%?1)=1
  6916. Uu%=-Uu%
  6917. :`i%+=2:
  6918. :=Uu%
  6919. C(C$,X$)
  6920. Uu%:oy%=1:
  6921. oy%<=
  6922. C$,oy%,1)=
  6923. X$,oy%,1)):oy%+=1:
  6924. C$,oy%)):B%=
  6925. X$,oy%)):
  6926. A%>B%
  6927. A%<B%
  6928. &4305D,-1,C$+
  6929. (0),X$+
  6930. (0),3
  6931. Uu%:=Uu%
  6932. g_(C$,X$)
  6933. A%,B%:$Hr%=C$+
  6934. (1):$sB%=X$+
  6935. (1):A%=Hr%:B%=sB%:=
  6936. (no%)
  6937. c(C$,X$)
  6938. M_%,G_%,K_%,z_%,zJ%:M_%=1:G_%=1:
  6939. C$,M_%,1))
  6940. (K_%>=65
  6941. K_%<=90)
  6942.     zJ%=
  6943. (K_%>=16
  6944. K_%<=25)
  6945. ((K_%=&D
  6946. K_%=&E)
  6947. C$,M_%+1,1))>=48
  6948. C$,M_%+1,1))<=57))
  6949. (K_%=&D
  6950. C$,M_%+1,1))=46)
  6951.     zJ%=
  6952. :M_%+=1:
  6953. M_%>=
  6954. zJ%:z_%=
  6955. X$,G_%,1)):G_%+=1:
  6956. K_%<>z_%:=(K_%=z_%)
  6957. (G_%>
  6958. (X$))
  6959. y%,Lu%,hy$,Xy$,Ly$:hy$="-._0123456789":y%=1:Xy$="":Ly$="":
  6960. (F$):Lu%=
  6961. F$,y%,1))
  6962. (Lu%>=65
  6963. Lu%<=90)
  6964. Xy$+=
  6965. (Lu%):Ly$+=
  6966. (Lu%)
  6967. (Lu%>=16
  6968. Lu%<=25)
  6969. ((Lu%=&D
  6970. Lu%=&E)
  6971. F$,y%+1,1))>=48
  6972. F$,y%+1,1))<=57))
  6973. (Lu%=&D
  6974. F$,y%+1,1))=46)
  6975. #Xy$+=
  6976. hy$,Lu%-&C,1):Ly$+=
  6977. (Lu%)
  6978. :F$=Xy$:=Ly$
  6979. r(C$,X$)
  6980. M_%,G_%,K_%,z_%,zJ%:M_%=
  6981. (C$):G_%=
  6982. (X$):
  6983. C$,M_%,1))
  6984. (K_%>=65
  6985. K_%<=90)
  6986.     zJ%=
  6987. (K_%>=16
  6988. K_%<=25)
  6989. ((K_%=&D
  6990. K_%=&E)
  6991. C$,M_%+1,1))>=48
  6992. C$,M_%+1,1))<=57))
  6993. (K_%=&D
  6994. C$,M_%+1,1))=46)
  6995.     zJ%=
  6996. :M_%-=1:
  6997. M_%<=0
  6998. X$,G_%,1))
  6999. (z_%>=65
  7000. z_%<=90)
  7001.     zJ%=
  7002. (z_%>=16
  7003. z_%<=25)
  7004. ((z_%=&D
  7005. z_%=&E)
  7006. X$,G_%+1,1))>=48
  7007. X$,G_%+1,1))<=57))
  7008. (z_%=&D
  7009. X$,G_%+1,1))=46)
  7010.     zJ%=
  7011. :G_%-=1:
  7012. G_%<=0
  7013. K_%<>z_%
  7014. M_%<=0
  7015. G_%<=0:
  7016. K_%<>z_%
  7017. M_%<=0
  7018. G_%>0
  7019. M_%<=0
  7020. G_%<=0
  7021. M_%<=0
  7022. G_%<=0
  7023. e(X$,C$)
  7024. M_%,G_%,K_%,z_%,zJ%:M_%=1:G_%=1:
  7025. :K_%=
  7026. C$,M_%,1)):
  7027. X$,G_%,1))
  7028. (z_%>=65
  7029. z_%<=90)
  7030.     zJ%=
  7031. (z_%>=16
  7032. z_%<=25)
  7033. ((z_%=&D
  7034. z_%=&E)
  7035. X$,G_%+1,1))>=48
  7036. X$,G_%+1,1))<=57))
  7037. (z_%=&D
  7038. X$,G_%+1,1))=46)
  7039.     zJ%=
  7040. :G_%+=1:
  7041. G_%>=
  7042. K_%=z_%
  7043. M_%+=1
  7044. M_%=1
  7045. (X$):
  7046. Vy(Oy%,Iy%,Cy%)$(Oy%+8)=
  7047. Z(A%(21),21):$(Oy%+21)=
  7048. Z(A%(21),Ly):Oy%?277=Iy%
  7049. &FF:Oy%?(277+1)=(Iy%>>8)
  7050. &FF:Oy%?280=&FF:!Oy%=Cy%:
  7051. Dy(U_%,Cy%)
  7052. Au%,r%,sy%,cu%,yJ%:
  7053. x%>=&FF
  7054. sy%=(((x%*2)+&3FF)
  7055. &3FF)
  7056. sy%=&400
  7057. L(0,2*sy%):
  7058. `y(Cy%):
  7059. U_%<(R%-1)
  7060. B(S%!((U_%+1)*4),(S%!((U_%+1)*4))+Cy%,Y_%-(S%!((U_%+1)*4))):cu%=_%!((U_%+1)*4):yJ%=Ky%!((U_%+1)*4):
  7061. B(yJ%,yJ%+(2*sy%),qu%-yJ%):
  7062. B(cu%,cu%+sy%,yJ%-cu%):yJ%+=sy%:
  7063. x%-1:cu%?0=r%
  7064. &FF:cu%?1=r%>>8:cu%+=2:yJ%?0=r%
  7065. &FF:yJ%?1=r%>>8:yJ%+=2:
  7066. Au%=0
  7067. U_%:Ky%!(Au%*4)+=sy%:
  7068. Au%=R%-1
  7069. U_%+1
  7070. -1:S%!((Au%+1)*4)=(S%!(Au%*4))+Cy%:_%!((Au%+1)*4)=(_%!(Au%*4))+sy%:Ky%!((Au%+1)*4)=(Ky%!(Au%*4))+(2*sy%):
  7071. :Oy%=S%!((U_%+1)*4)
  7072. _%!(R%*4)=Ky%!0:Ky%!(R%*4)=qu%+sy%:
  7073. B(Ky%!0,(Ky%!0)+sy%,qu%-(Ky%!0)):
  7074. R%-1:Ky%!(M%*4)+=sy%:
  7075. mcu%=_%!(R%*4):yJ%=Ky%!(R%*4):
  7076. x%-1:cu%?0=r%
  7077. &FF:cu%?1=r%>>8:cu%+=2:yJ%?0=r%
  7078. &FF:yJ%?1=r%>>8:yJ%+=2:
  7079. :Oy%=Y_%:S%!(R%*4)=Y_%
  7080. _%!0=qu%:Ky%!0=qu%+sy%:S%!0=Y_%:Oy%=Y_%
  7081. :Y_%+=Cy%:qu%+=(2*sy%):
  7082. Vy(S%!(T%*4),NJ%,nn%):
  7083. m:Vu%=
  7084. T%=i%
  7085. Wl%=NJ%:
  7086. Wl%=3
  7087. Ay(A%(7),Zy%):Zy%=-1:i%=-1
  7088. J(A%(21))
  7089. T%=s_%
  7090. s_%=-1:
  7091. __(T%)
  7092. Hy(T%):
  7093. Vn%,nn%,NJ%:
  7094. RJ:Vn%=?((S%!(T%*4))+277):
  7095. eJ:nn%=604:NJ%=
  7096. Z(A%(21),x))<<8:?((S%!(T%*4))+279)=
  7097. S(A%(21),f)
  7098. JJ:nn%=308:NJ%=3:
  7099. S(A%(21),m)
  7100. NJ%+=1<<8
  7101. ay:nn%=316:NJ%=2+((
  7102. S(A%(21),X)
  7103. 1)<<8):NJ%+=((
  7104. S(A%(21),L)
  7105. 2)<<8):
  7106. ay:nn%=316:NJ%=1+((
  7107. S(A%(21),X)
  7108. 1)<<8):NJ%+=((
  7109. S(A%(21),L)
  7110. 2)<<8):
  7111. `%,w%,W_%,U%:W_%=5:
  7112. L(T%+1,604-316):
  7113. F(T%):
  7114. x%-1:`%=
  7115. (!((!((!e%)+(U%*4)))+w%))):
  7116. `%>=W_%
  7117. W_%=`%+1
  7118. V(T%,4,W_%):w%=
  7119. F(T%):
  7120. x%-1:$((!((!e%)+(U%*4)))+w%)=
  7121. (!((!((!e%)+(U%*4)))+w%)):
  7122. :NJ%=(W_%-1)<<8:?((S%!(T%*4))+279)=
  7123. S(A%(21),f)
  7124. f(S%!(T%*4),k_%):
  7125. Dr%,U%,w%:!((S%!(T%*4))+281)=
  7126. Z(A%(21),G)):!((S%!(T%*4))+285)=
  7127. Z(A%(21),Q)):?((S%!(T%*4))+278)=
  7128. S(A%(21),X)
  7129. 1:?((S%!(T%*4))+278)+=
  7130. S(A%(21),L)
  7131. 2:$((S%!(T%*4))+301)=
  7132. Z(A%(21),R):$((S%!(T%*4))+289)=
  7133. Z(A%(21),Y)
  7134. ?((S%!(T%*4))+279)<>
  7135. Z(A%(21),H))
  7136. VDr%=
  7137. Z(A%(21),H))-(?((S%!(T%*4))+279)):?((S%!(T%*4))+279)=
  7138. Z(A%(21),H)):
  7139. F(T%):
  7140. x%-1:!((!((!e%)+(U%*4)))+w%)=(!((!((!e%)+(U%*4)))+w%))*(&A^Dr%):
  7141. w%,U%,SJ%:
  7142. F(T%):
  7143. V(T%,4,5):SJ%=&A^(?((S%!(T%*4))+279)):
  7144. x%-1:|((!((!e%)+(U%*4)))+w%)=(!((!((!e%)+(U%*4)))+w%))/SJ%:
  7145. :|((S%!(T%*4))+281)=
  7146. Z(A%(21),G)):|((S%!(T%*4))+286)=
  7147. Z(A%(21),Q)):?((S%!(T%*4))+278)=
  7148. S(A%(21),X)
  7149. 1:?((S%!(T%*4))+278)+=
  7150. S(A%(21),L)
  7151. 2:$((S%!(T%*4))+303)=
  7152. Z(A%(21),R):$((S%!(T%*4))+291)=
  7153. Z(A%(21),Y):
  7154. Sy,`:H$=
  7155. A("Cov"):L$=
  7156. A("Can"):TJ%=
  7157. :TZ%=
  7158. Z(A%(21),a)):RZ%=
  7159. Z(A%(21),z)):
  7160. A("NaN")
  7161. (?NJ%)
  7162. Z(A%(21),z)
  7163. Z(A%(21),a)
  7164. A("StB")
  7165. L(T%+1,308-316):$((S%!(T%*4))+281)=
  7166. Z(A%(21),a):$((S%!(T%*4))+294)=
  7167. Z(A%(21),z)
  7168. _y$,wy$,w%,W_%,U%:_y$=$((S%!(T%*4))+281):wy$=$((S%!(T%*4))+294):W_%=
  7169. (_y$):QO%=
  7170. (wy$):
  7171. QO%>W_%
  7172. W_%=QO%
  7173. :W_%+=1:
  7174. L(T%+1,604-308):
  7175. V(T%,1,W_%):w%=
  7176. F(T%):
  7177. x%-1:
  7178. ?((!((!e%)+(U%*4)))+w%)
  7179. $((!((!e%)+(U%*4)))+w%)=wy$
  7180. $((!((!e%)+(U%*4)))+w%)=_y$
  7181. :NJ%=(W_%-1)<<8:?((S%!(T%*4))+279)=
  7182. S(A%(21),f)
  7183. f(S%!(T%*4),k_%):
  7184. uJ(M%)
  7185. Sy,`,w%,U%,SJ%:Sy=
  7186. J($((S%!(M%*4))+281)):`=
  7187. J($((S%!(M%*4))+294)):
  7188. L(M%+1,316-308):
  7189. V(M%,1,4):SJ%=&A^
  7190. Z(A%(21),H)):w%=
  7191. F(M%):
  7192. x%-1:
  7193. ?((!((!e%)+(U%*4)))+w%)
  7194. !!((!((!e%)+(U%*4)))+w%)=`*SJ%
  7195. !((!((!e%)+(U%*4)))+w%)=Sy*SJ%
  7196. :!((S%!(T%*4))+281)=
  7197. Z(A%(21),G)):!((S%!(T%*4))+285)=
  7198. Z(A%(21),Q)):?((S%!(T%*4))+279)=
  7199. Z(A%(21),H)):?((S%!(T%*4))+278)=
  7200. S(A%(21),X)
  7201. 1:?((S%!(T%*4))+278)=
  7202. S(A%(21),L)
  7203. 2:$((S%!(T%*4))+301)=
  7204. Z(A%(21),R):$((S%!(T%*4))+289)=
  7205. Z(A%(21),Y)
  7206. l(w%,_%!(M%*4),0,P%-1):
  7207. l(w%,Ky%!(M%*4),0,x%-1):
  7208. qJ(M%)
  7209. Sy,`,w%,U%:Sy=
  7210. J($((S%!(M%*4))+281)):`=
  7211. J($((S%!(M%*4))+294)):
  7212. L(M%+1,316-308):
  7213. V(M%,1,5):w%=
  7214. F(M%):
  7215. x%-1:
  7216. ?((!((!e%)+(U%*4)))+w%)
  7217. |((!((!e%)+(U%*4)))+w%)=`
  7218. |((!((!e%)+(U%*4)))+w%)=Sy
  7219. :|((S%!(T%*4))+281)=
  7220. Z(A%(21),G)):|((S%!(T%*4))+286)=
  7221. Z(A%(21),Q)):?((S%!(T%*4))+278)=
  7222. S(A%(21),X)
  7223. 1:?((S%!(T%*4))+278)=
  7224. S(A%(21),L)
  7225. 2:$((S%!(T%*4))+303)=
  7226. Z(A%(21),R):$((S%!(T%*4))+291)=
  7227. Z(A%(21),Y):
  7228. o(w%,_%!(M%*4),0,P%-1)
  7229. o(w%,Ky%!(M%*4),0,x%-1):
  7230. Sy,`:TJ%=
  7231. J($((S%!(T%*4))+281)):`=
  7232. J($((S%!(T%*4))+294)):
  7233. A("Cov"):L$=
  7234. A("Can"):
  7235. A("EqN")
  7236. A("Cov"):L$=
  7237. A("Can"):
  7238. A("NaN")
  7239. uJ(T%)
  7240. L(T%+1,316-308):!((S%!(T%*4))+281)=
  7241. Z(A%(21),G)):!((S%!(T%*4))+285)=
  7242. Z(A%(21),Q)):?((S%!(T%*4))+279)=
  7243. Z(A%(21),H)):?((S%!(T%*4))+278)=
  7244. S(A%(21),X)
  7245. 1:?((S%!(T%*4))+278)=
  7246. S(A%(21),L)
  7247. 2:$((S%!(T%*4))+301)=
  7248. Z(A%(21),R)
  7249. #$((S%!(T%*4))+289)=
  7250. Z(A%(21),Y)
  7251. Sy,`:TJ%=
  7252. J($((S%!(T%*4))+281)):`=
  7253. J($((S%!(T%*4))+294)):
  7254. A("Cov"):L$=
  7255. A("Can"):
  7256. A("NaN")
  7257. qJ(T%)
  7258. L(T%+1,316-308):|((S%!(T%*4))+281)=
  7259. Z(A%(21),G)):|((S%!(T%*4))+286)=
  7260. Z(A%(21),Q)):?((S%!(T%*4))+278)=
  7261. S(A%(21),X)
  7262. 1:?((S%!(T%*4))+278)=
  7263. S(A%(21),L)
  7264. 2:$((S%!(T%*4))+303)=
  7265. Z(A%(21),R):$((S%!(T%*4))+291)=
  7266. Z(A%(21),Y)
  7267. zu$((S%!(T%*4))+281)=
  7268. Z(A%(21),a):$((S%!(T%*4))+294)=
  7269. Z(A%(21),z):
  7270. h(T%,
  7271. F(T%),_%!(T%*4),0,P%-1):
  7272. h(T%,
  7273. F(T%),Ky%!(T%*4),0,x%-1)
  7274. w%,W_%,U%,Cy%:w%=
  7275. F(T%):W_%=5:
  7276. x%-1:Cy%=
  7277. (|((!((!e%)+(U%*4)))+w%))):
  7278. Cy%>=W_%
  7279. W_%=Cy%+1
  7280. V(T%,5,W_%):w%=
  7281. F(T%):
  7282. x%-1:$((!((!e%)+(U%*4)))+w%)=
  7283. (|((!((!e%)+(U%*4)))+w%)):
  7284. L(T%+1,604-308):?((S%!(T%*4))+279)=
  7285. S(A%(21),f)
  7286. 1:NJ%=(W_%-1)<<8:
  7287. f(S%!(T%*4),k_%):
  7288. &+H$=
  7289. A("Cov"):L$=
  7290. A("Can"):
  7291. A("R_I")
  7292. !((S%!(T%*4))+281)=
  7293. Z(A%(21),G)):!((S%!(T%*4))+285)=
  7294. Z(A%(21),Q)):?((S%!(T%*4))+279)=
  7295. Z(A%(21),H)):?((S%!(T%*4))+278)=
  7296. S(A%(21),X)
  7297. 1:?((S%!(T%*4))+278)+=
  7298. S(A%(21),L)
  7299. 2:$((S%!(T%*4))+301)=
  7300. Z(A%(21),R):$((S%!(T%*4))+289)=
  7301. Z(A%(21),Y)
  7302. Wu(M%)
  7303. w%,U%,my%,Tu%,SJ%:SJ%=&A^
  7304. Z(A%(21),H)):w%=
  7305. F(M%):
  7306. x%-1:!((!((!e%)+(U%*4)))+w%)=(|((!((!e%)+(U%*4)))+w%))*SJ%:
  7307. V(M%,5,4):!((S%!(T%*4))+281)=
  7308. Z(A%(21),G)):!((S%!(T%*4))+285)=
  7309. Z(A%(21),Q)):?((S%!(T%*4))+279)=
  7310. Z(A%(21),H))
  7311. ?((S%!(T%*4))+278)=
  7312. S(A%(21),X)
  7313. 1:?((S%!(T%*4))+278)+=
  7314. S(A%(21),L)
  7315. 2:$((S%!(T%*4))+301)=
  7316. Z(A%(21),R):$((S%!(T%*4))+289)=
  7317. Z(A%(21),Y):
  7318. Cl|((S%!(T%*4))+281)=
  7319. Z(A%(21),G)):|((S%!(T%*4))+286)=
  7320. Z(A%(21),Q)):?((S%!(T%*4))+278)=
  7321. S(A%(21),X)
  7322. 1:?((S%!(T%*4))+278)+=
  7323. S(A%(21),L)
  7324. 2:$((S%!(T%*4))+303)=
  7325. Z(A%(21),R):$((S%!(T%*4))+291)=
  7326. Z(A%(21),Y):
  7327. Sy,`:H$=
  7328. A("Cov"):L$=
  7329. A("Can"):TJ%=
  7330. Z(A%(21),a)):`=
  7331. Z(A%(21),z)):
  7332. A("NaN")
  7333. (?NJ%)
  7334. Z(A%(21),z)
  7335. Z(A%(21),a)
  7336. A("StB")
  7337. L(T%+1,308-316):$((S%!(T%*4))+281)=
  7338. Z(A%(21),a):$((S%!(T%*4))+294)=
  7339. Z(A%(21),z)
  7340. cu(M%)
  7341. F,w%,U%:
  7342. (?NJ%)
  7343. J($((S%!(M%*4))+281))
  7344. J($((S%!(M%*4))+294))
  7345. F(M%):
  7346. x%-1:
  7347. |((!((!e%)+(U%*4)))+w%)=F
  7348. ?((!((!e%)+(U%*4)))+w%)=1
  7349. ?((!((!e%)+(U%*4)))+w%)=0
  7350. V(M%,5,1):
  7351. L(M%+1,308-316):$((S%!(M%*4))+281)=
  7352. Z(A%(21),a):$((S%!(M%*4))+294)=
  7353. Z(A%(21),z):
  7354. h(M%,w%,_%!(M%*4),0,P%-1):
  7355. h(M%,w%,Ky%!(M%*4),0,x%-1):
  7356. ei(M%)
  7357. w%,U%,F,SJ%:
  7358. (?NJ%)
  7359. Z(A%(21),a))
  7360. Z(A%(21),z))
  7361. :SJ%=&A^?((S%!(M%*4))+279):w%=
  7362. F(M%):
  7363. x%-1:
  7364. (!((!((!e%)+(U%*4)))+w%))/SJ%=F
  7365. ?((!((!e%)+(U%*4)))+w%)=1
  7366. ?((!((!e%)+(U%*4)))+w%)=0
  7367. V(M%,4,1):
  7368. L(M%+1,308-316):$((S%!(M%*4))+281)=
  7369. Z(A%(21),a):$((S%!(M%*4))+294)=
  7370. Z(A%(21),z):
  7371. h(M%,w%,_%!(M%*4),0,P%-1):
  7372. h(M%,w%,Ky%!(M%*4),0,x%-1):
  7373. f(S%!(T%*4),k_%):ca%=
  7374. Z(A%(21),x)):?((S%!(T%*4))+279)=
  7375. S(A%(21),f)
  7376. ca%<(?((S%!(T%*4))+278))
  7377. dy(T%)
  7378. F+H$=
  7379. A("Trn"):L$=
  7380. A("Can"):
  7381. A("StT")
  7382. ca%<>(?((S%!(T%*4))+278))
  7383. fy(T%,ca%)
  7384. fy(M%,ZJ%)
  7385. en%,dk%:
  7386. MEen%=(?((S%!(M%*4))+278))+1:dk%=
  7387. Qy(M%):
  7388. V(M%,en%,ZJ%+1):
  7389. dk%>ZJ%
  7390. U%,my%,w%:w%=
  7391. F(M%):my%=w%+ZJ%:
  7392. x%-1:?((!((!e%)+(U%*4)))+my%)=&D:
  7393. :?((S%!(M%*4))+278)=ZJ%:
  7394. Xy(w%,_%!(M%*4),0,P%-1):
  7395. Xy(w%,Ky%!(M%*4),0,x%-1)
  7396. ?((S%!(M%*4))+278)=ZJ%
  7397. ?((S%!(M%*4))+278)=ZJ%
  7398. J(F$)
  7399. y%,Dy$,Cy%:y%=0:Cy%=
  7400. (F$):
  7401. y%+=1:Dy$=
  7402. F$,y%,1):
  7403. "0123456789-.",Dy$)
  7404. F$,y%))
  7405. y%=Cy%:TJ%=
  7406. W+H$=
  7407. A("Cov"):L$=
  7408. A("Can"):
  7409. A("CNS")
  7410. L(T%+1,316-604):!((S%!(T%*4))+281)=
  7411. Z(A%(21),G)):!((S%!(T%*4))+285)=
  7412. Z(A%(21),Q)):?((S%!(T%*4))+279)=
  7413. Z(A%(21),H)):?((S%!(T%*4))+278)=
  7414. S(A%(21),X)
  7415. 1:?((S%!(T%*4))+278)=
  7416. S(A%(21),L)
  7417. 2:$((S%!(T%*4))+301)=
  7418. Z(A%(21),R)
  7419. Y#$((S%!(T%*4))+289)=
  7420. Z(A%(21),Y)
  7421. \+H$=
  7422. A("Cov"):L$=
  7423. A("Can"):
  7424. A("CNS")
  7425. L(T%+1,316-604):|((S%!(T%*4))+281)=
  7426. Z(A%(21),G)):|((S%!(T%*4))+286)=
  7427. Z(A%(21),Q)):?((S%!(T%*4))+278)=
  7428. S(A%(21),X)
  7429. 1:?((S%!(T%*4))+278)=
  7430. S(A%(21),L)
  7431. 2:$((S%!(T%*4))+303)=
  7432. Z(A%(21),R):$((S%!(T%*4))+291)=
  7433. Z(A%(21),Y)
  7434. kl(M%)
  7435. W_%,w%,U%,Ly%:Ly%=&A^
  7436. Z(A%(21),H)):W_%=(?((S%!(M%*4))+278))+1:w%=
  7437. F(M%):
  7438. W_%<4
  7439. V(M%,W_%,4):
  7440. x%-1:!((!((!e%)+(U%*4)))+w%)=
  7441. J($((!((!e%)+(U%*4)))+w%))*Ly%:
  7442. x%-1:!((!((!e%)+(U%*4)))+w%)=
  7443. J($((!((!e%)+(U%*4)))+w%))*Ly%:
  7444. V(M%,W_%,4)
  7445. L(M%+1,316-604):!((S%!(M%*4))+281)=
  7446. Z(A%(21),G)):!((S%!(M%*4))+285)=
  7447. Z(A%(21),Q)):?((S%!(M%*4))+279)=
  7448. Z(A%(21),H)):?((S%!(M%*4))+278)=
  7449. S(A%(21),X)
  7450. 1:?((S%!(M%*4))+278)=
  7451. S(A%(21),L)
  7452. 2:$((S%!(M%*4))+301)=
  7453. Z(A%(21),R)
  7454. cV$((S%!(M%*4))+289)=
  7455. Z(A%(21),Y):
  7456. l(w%,_%!(M%*4),0,P%-1):
  7457. l(w%,Ky%!(M%*4),0,x%-1):
  7458. si(M%)W_%=(?((S%!(T%*4))+278))+1:w%=
  7459. F(M%):
  7460. W_%<5
  7461. V(M%,W_%,5):
  7462. x%-1:|((!((!e%)+(U%*4)))+w%)=
  7463. J($((!((!e%)+(U%*4)))+w%)):
  7464. x%-1:|((!((!e%)+(U%*4)))+w%)=
  7465. J($((!((!e%)+(U%*4)))+w%)):
  7466. V(M%,W_%,5)
  7467. L(M%+1,316-604):|((S%!(M%*4))+281)=
  7468. Z(A%(21),G)):|((S%!(M%*4))+286)=
  7469. Z(A%(21),Q)):?((S%!(M%*4))+278)=
  7470. S(A%(21),X)
  7471. 1:?((S%!(M%*4))+278)=
  7472. S(A%(21),L)
  7473. 2:$((S%!(M%*4))+303)=
  7474. Z(A%(21),R):$((S%!(M%*4))+291)=
  7475. Z(A%(21),Y):
  7476. o(w%,_%!(M%*4),0,P%-1)
  7477. o(w%,Ky%!(M%*4),0,x%-1):
  7478. Ol:p$=
  7479. Z(A%(21),a):`$=
  7480. Z(A%(21),z):
  7481. (?NJ%)
  7482. k    J$=`$
  7483. J$=p$
  7484. A("Con"):L$=
  7485. A("Can"):
  7486. A("StB")
  7487. L(T%+1,308-604):$((S%!(T%*4))+281)=p$:$((S%!(T%*4))+294)=`$
  7488. Hl(M%)
  7489. w%,U%:w%=
  7490. F(M%):
  7491. x%-1:?((!((!e%)+(U%*4)))+w%)=
  7492. C($((!((!e%)+(U%*4)))+w%),p$):
  7493. V(M%,(?((S%!(M%*4))+278))+1,1):
  7494. L(M%+1,308-604):$((S%!(M%*4))+281)=p$:$((S%!(M%*4))+294)=`$:
  7495. h(M%,w%,_%!(M%*4),0,P%-1):
  7496. h(M%,w%,Ky%!(M%*4),0,x%-1):
  7497. V(M%,en%,YZ%)
  7498. my%,vi%,GB%:vi%=YZ%-en%:
  7499. vi%>0
  7500. GB%=vi%:my%=
  7501. F(M%)+en%
  7502. GB%=0:my%=
  7503. F(M%)+en%+vi%
  7504. M%<R%-1
  7505. w%:w%=
  7506. F(M%+1):
  7507. By(my%,GB%,w%,wy%-w%)
  7508. By(my%,GB%,0,0)
  7509. :wy%+=vi%:
  7510. Oy%,q$,T%:
  7511. &406C0:q$=
  7512. Z(A%(31),1):
  7513. q$=""
  7514. A("FlB")
  7515. j(q$)<>-1
  7516. A("Exi")
  7517. T%=R%-1
  7518. Zy%<>-1
  7519. Ay(A%(7),Zy%):Zy%=-1
  7520. Ty(T%,
  7521. A("StringMax"))+1):wy%+=
  7522. A("StringMax"))+1:
  7523. Dy(T%,604):!Oy%=604:$(Oy%+8)=q$:$(Oy%+21)="":Oy%?280=&FF:Oy%?277=0:Oy%?278=
  7524. A("StringMax")):Oy%?279=(
  7525. A("StringMaxFlag"))<>0)
  7526. f(Oy%,k_%):
  7527. F(T%)+
  7528. O(T%):
  7529. x%-1:$((!((!e%)+(r%*4)))+F%)="":
  7530. J(A%(31))
  7531. A(A%(31),1,
  7532. A("NeF")+
  7533. (R%))
  7534. Oy%,Iy%,x$,Gl%,Xe%,pB%:
  7535. &406C0:
  7536. T%=R%-1
  7537. Zy%<>-1
  7538. Ay(A%(7),Zy%):Zy%=-1
  7539. Ty(T%,
  7540. Z(A%(21),x))+1):wy%+=
  7541. Z(A%(21),x))+1:
  7542. Dy(T%,604):Iy%=
  7543. Z(A%(21),x))<<8:
  7544. Vy(Oy%,Iy%,604):Oy%?279=
  7545. S(A%(21),f)
  7546. f(Oy%,k_%):
  7547. F(T%)+
  7548. O(T%):
  7549. x%-1:$((!((!e%)+(r%*4)))+F%)="":
  7550. Ty(T%,4):wy%+=4:
  7551. Dy(T%,316):
  7552. Vy(Oy%,1,316):
  7553. F(T%)+
  7554. O(T%):
  7555. x%-1:!((!((!e%)+(r%*4)))+F%)=0:
  7556. :Oy%!281=
  7557. Z(A%(21),G)):Oy%!285=
  7558. Z(A%(21),Q)):Oy%?279=
  7559. Z(A%(21),H)):Oy%?278=
  7560. S(A%(21),X)
  7561. 1:$(Oy%+301)=
  7562. Z(A%(21),R):$(Oy%+289)=
  7563. Z(A%(21),Y):Oy%?278+=
  7564. S(A%(21),L)
  7565. Ty(T%,1):wy%+=1:
  7566. Dy(T%,308):Iy%=3:
  7567. S(A%(21),m)
  7568. Iy%+=1<<8:jo%=1
  7569. Vy(Oy%,Iy%,308):$(Oy%+281)=
  7570. Z(A%(21),a):$(Oy%+294)=
  7571. Z(A%(21),z):
  7572. F(T%)+
  7573. O(T%):
  7574. x%-1:?((!((!e%)+(r%*4)))+F%)=jo%:
  7575. Ty(T%,5):wy%+=5:
  7576. Dy(T%,316):
  7577. Vy(Oy%,2,316):
  7578. F(T%)+
  7579. O(T%):
  7580. x%-1:|((!((!e%)+(r%*4)))+F%)=0:
  7581. :|(Oy%+281)=
  7582. Z(A%(21),G)):|(Oy%+286)=
  7583. Z(A%(21),Q)):$(Oy%+303)=
  7584. Z(A%(21),R):$(Oy%+291)=
  7585. Z(A%(21),Y):Oy%?278=
  7586. S(A%(21),X)
  7587. 1:Oy%?278+=
  7588. S(A%(21),L)
  7589. J(A%(21))
  7590. A(A%(21),21,
  7591. A("NeF")+
  7592. (R%))
  7593. KJ:R%+=1:iJ%+=1:
  7594. K$si%="R2;Sascending":l_%?0=0:l_%?1=0:l_%?2=&FF:
  7595. A(A%(&D),6,$(Oy%+8)):
  7596. S(A%(&D),7)
  7597. :cy%+=60:
  7598. Ba(T%)
  7599. Di(T%)
  7600. :Vu%=
  7601. &406C1:
  7602. S_:aa%=
  7603. $:n_%=
  7604. :Wu%=
  7605. f(Oy%,k_%)
  7606. x$,oy%,h$,r%:x$="KTARN;Pptr_write;F0d;A":h$="":oy%=32:
  7607. Gl%=0
  7608. 30:pB%=k_%?Gl%:
  7609. Xe%=0
  7610. (1<<Xe%))>0
  7611. "-;\~",
  7612. (oy%))>0
  7613. h$+="\"+
  7614. (oy%)
  7615. (oy%)
  7616. :oy%+=1:
  7617. ,:Gl%=
  7618. h$,r%,1)):x$+=
  7619. (h$):
  7620. h$,r%,1))=Gl%+1)
  7621. "-;\~ ",
  7622. Gl%)=0)
  7623. Gl%+=1:
  7624. x$)<>"-"
  7625. x$+="-"
  7626. x$)="-"
  7627. x$,2)<>"\-"
  7628. :x$+=
  7629. h$,r%,1):Gl%=
  7630. h$,r%,1))
  7631. x$)="-"
  7632. x$,2)<>"\-"
  7633. :$(Oy%+281)=x$:
  7634. B(k_%,Oy%+537,64):
  7635. Q(X%,Y%)
  7636. M%,vu%:
  7637. ma%<>A%(7)
  7638. t%=-1:tu%=
  7639. :!L%=A%(7):
  7640. &400CB,,L%:X%=((L%!20)-(L%!4))+X%:Y%=-(((L%!24)-(L%!16))+Y%):Y%-=46:t%=Y%
  7641. cy%:M%=(Y%
  7642. t%>P%
  7643.     t%=P%
  7644. iJ%>0
  7645. :vu%=-1:
  7646. e_%=0
  7647. R%-1:
  7648. ((!((S%!(e_%*4))+277))
  7649. -&1000000)
  7650. vu%+=1:
  7651. vu%=M%
  7652. M%=-e_%
  7653. M%=0:tu%=
  7654. M%=0:tu%=
  7655. x_(M%)
  7656. vu%:vu%=-1:
  7657. e_%=0
  7658. (?((S%!(e_%*4))+280))
  7659. vu%+=1
  7660. :=vu%
  7661. Xa(U%)
  7662. M%,Xy%,Iy%,n%,m%,vu%:Ga%!0=&C:Ga%!4=-((U%*cJ%)+cJ%-&C):Ga%!8=UJ%-&C:Ga%!&C=-((U%*cJ%)+&C):
  7663. &400E2,,Ga%:w_%!&C=-((U%*cJ%)+20):w_%!4=-((U%*cJ%)+52):
  7664.  $(w_%!20)=
  7665. A("MCk"),w_%!28)
  7666. $(w_%!20)=
  7667. A("NDa"),w_%!28)
  7668. $(w_%!20)=
  7669. A("QNR"),w_%!28)
  7670. U%=ty%
  7671.  $(w_%!20)=
  7672. A("SpR"),w_%!28)
  7673. U%>ty%
  7674. $(w_%!20)=
  7675. $(w_%!20)=
  7676. (U%+1)
  7677. &400E2,,w_%:
  7678. iJ%>0
  7679. -cJ%)=U%
  7680. &n%=(((Ra%
  7681. -cJ%)+42)
  7682. -60):
  7683. n%>=iJ%
  7684. -cJ%)=U%
  7685. -m%=(((wa%
  7686. -cJ%)+42)
  7687. -60):
  7688. m%>=iJ%
  7689. m%=R%-1
  7690. m%=R%-1
  7691. :Xy%=((-((U%*cJ%)+42))-8)-n%*60:vu%=-1:
  7692. R%-1:
  7693. ((!((S%!(M%*4))+277))
  7694. -&1000000)
  7695. vu%+=1:
  7696. vu%=n%
  7697. n%=-M%
  7698. vu%=m%
  7699. m%=-M%
  7700. (m%):Iy%=!((S%!(M%*4))+277):
  7701. -&1000000)
  7702. pJ(Xy%,M%):
  7703. Ci(Xy%,M%,U%)
  7704. Oi(Xy%,M%,U%)
  7705. lJ(Xy%,M%,U%)
  7706. Ca(Xy%,M%,U%)
  7707. Xy%,M%,U%)
  7708. Qy%,M$:M$=
  7709. r_(M%,U%):
  7710. ((Iy%>>16)
  7711. DQy%=&C+S_%+4+
  7712. R(M$+
  7713. ((Iy%>>8)
  7714. &FF)-
  7715. (M$),"A"))+18:
  7716. Qy%>(UJ%-20)
  7717. Qy%=(UJ%-20)
  7718. Qy%=(UJ%-20)
  7719. :ry%!0=(&C+(S_%))+4:ry%!4=Xy%-52:ry%!8=Qy%:ry%!&C=Xy%:ry%!20=wo%:$(ry%!20)=M$:
  7720. &400E2,,ry%:Xy%-=60:
  7721. pJ(Xy%,M%)bJ%!0=&C:bJ%!&C=Xy%-8:bJ%!8=&C+(S_%):bJ%!4=Xy%-8-36:$(bJ%!20)=$((S%!(M%*4))+8):
  7722. &400E2,,bJ%:
  7723. Jl(Xy%,M%,U%)
  7724. Fy%,hy%,Qy%,M$:qy%!0=A%(7):qy%!4=(&C+(S_%))+4:qy%!8=Xy%-52:qy%!16=Xy%:
  7725. U%=ty%
  7726. qy%!24=Ka%:$Ka%=""
  7727. L(U%):hy%=
  7728. F(M%)+Fy%:$Ka%=$hy%:qy%!24=Ka%
  7729. :M$=$(qy%!24):
  7730. ((?((S%!(M%*4))+279))
  7731. JQy%=&C+S_%+4+
  7732. R(M$+
  7733. (?((S%!(M%*4))+278))-
  7734. (M$),"A"))+18:
  7735. Qy%>(UJ%-20)
  7736. Qy%=(UJ%-20)
  7737. :qy%!32=(?((S%!(M%*4))+278))+1
  7738. Qy%=(UJ%-20):qy%!32=&FF
  7739. :qy%!&C=Qy%:qy%!28=((S%!(M%*4))+281):
  7740. &400C2,Zy%,qy%
  7741. Jy%,M%)
  7742. (X_%<>256)
  7743. (((?((S%!(M%*4))+279))
  7744. 1)=1)
  7745. m_%,in%:J%!0=A%(7):J%!4=Jy%:
  7746. &400D3,,J%:m_%=J%!20:
  7747. &400CE,,J%:in%=J%!16:M$=$(J%!28):Qy%=((&C+(S_%))+4)+(
  7748. R(M$+
  7749. (?((S%!(M%*4))+278))-
  7750. (M$),"A")))+18:
  7751. Qy%>(UJ%-20)
  7752. Qy%=(UJ%-20)
  7753. in%<>Qy%
  7754. &400C4,,J%:J%!16=Qy%:J%!4=A%(7):
  7755. &400C2,Jy%,J%+4
  7756. in%<Qy%
  7757. J%!8=in%-2:J%!16=Qy%+2
  7758. J%!8=Qy%-2:J%!16=in%+2
  7759. &400C9,,J%+4
  7760. &400E6,1:
  7761. J%!32,J%!36,(J%!40)-(J%!32),(J%!44)-(J%!36):
  7762. &400CA,,J%+4
  7763. &400D2,A%(7),Jy%,,,-1,m_%
  7764. t%=ty%
  7765. &406C0:
  7766. DJ:ty%=P%:
  7767. &406C1
  7768. Xy%,M%,U%)ry%!0=(&C+S_%)+4:ry%!4=Xy%-52:ry%!8=((&C+S_%)+4)+18+
  7769. __(M%):ry%!&C=Xy%:
  7770. (?((S%!(M%*4))+278)
  7771. A$(ry%!20)=$((S%!(M%*4))+289)+
  7772. n(M%,U%)+" "+$((S%!(M%*4))+301)
  7773. $(ry%!20)=
  7774. n(M%,U%)
  7775. &400E2,,ry%:Xy%-=60:
  7776. Ki(Xy%,M%,U%)qy%!0=A%(7):qy%!4=(&C+S_%)+4:qy%!8=Xy%-52:qy%!&C=((&C+S_%)+4)+18:qy%!16=Xy%:qy%!24=Ka%:qy%!28=m`%:qy%!32=
  7777. e_(M%,qy%!&C):$(qy%!24)=
  7778. n(M%,U%):
  7779. &400C2,Zy%,qy%
  7780. e_(M%,
  7781. my%,Tu%,ui%:ui%=?((S%!(M%*4))+279):my%=
  7782. (!((S%!(M%*4))+281))):Tu%=
  7783. (!((S%!(M%*4))+285))):
  7784. Tu%>my%
  7785. my%,Tu%
  7786. my%+=(ui%+1)
  7787. :Qy%+=(my%*dl%):
  7788. (?((S%!(M%*4))+278)
  7789. 6Qy%+=
  7790. R($((S%!(M%*4))+289)+" "+$((S%!(M%*4))+301))
  7791. (?((S%!(M%*4))+278)
  7792. =my%+1
  7793. __(M%)
  7794. my%,Tu%,ui%:ui%=?((S%!(M%*4))+279):my%=
  7795. (!((S%!(M%*4))+281))):Tu%=
  7796. (!((S%!(M%*4))+285))):
  7797. Tu%>my%
  7798. my%,Tu%
  7799. my%+=(ui%+1)
  7800. (?((S%!(M%*4))+278)
  7801. +<=(my%*dl%)+
  7802. R($((S%!(M%*4))+289)+" "+$((S%!(M%*4))+301))
  7803. :=(my%*dl%)
  7804. Xy%,M%,U%)
  7805. X%,Y%,z$,Y$:ry%!-4=A%(7):ry%!0=&C+S_%+4:ry%!&C=Xy%:ry%!8=&C+S_%+4+(&E*dl%)+18:ry%!4=Xy%-52:z$=
  7806. Py(M%,U%):
  7807. (?((S%!(M%*4))+278)
  7808. z$,"E")
  7809. (X_%<>256)
  7810. Y$=($((S%!(M%*4))+291)):Y$+=
  7811. z$,"E")-1)+" 
  7812. 10":Y$+=
  7813. t(0.8,0,&FA0,
  7814. (Y$)):Y$+=
  7815. z$,"E")+1):Y$+=
  7816. t(1,0,0,
  7817. (Y$)):Y$+=" "+$((S%!(M%*4))+303)
  7818. Y$=($((S%!(M%*4))+291))+z$+" "+$((S%!(M%*4))+303)
  7819. z$,"E")
  7820. (X_%<>256)
  7821. 3^Y$=
  7822. z$,"E")-1)+" 
  7823. 10":Y$+=
  7824. t(0.8,0,&FA0,
  7825. (Y$)):Y$+=
  7826. z$,"E")+1):Y$+=
  7827. t(1,0,0,
  7828. (Y$))
  7829. Y$=z$
  7830. X_%<>256
  7831. 7z$(ry%!20)="":
  7832. &400E2,,ry%:X%=((Z%!4)-(Z%!20)):Y%=((Z%!16)-(Z%!24))+Xy%:
  7833. &40086,X_%,Y$,784,(X%+&C+S_%+4)+8,(Y%-52)+&E
  7834. $(ry%!20)=Y$:
  7835. &400E2,,ry%
  7836. :Xy%-=60:
  7837. tl(Xy%,M%,U%)qy%!0=A%(7):qy%!4=&C+S_%+4:qy%!16=Xy%:qy%!&C=&C+S_%+4+(&E*dl%)+18:qy%!8=Xy%-52:qy%!24=Ka%:qy%!28=o`%:qy%!32=&E:$(qy%!24)=
  7838. Py(M%,U%):
  7839. &400C2,Zy%,qy%
  7840. Xy%,M%,U%)iy%!0=(&C+(S_%))+4:iy%!&C=Xy%:iy%!8=((&C+(&C*16))+4)+(&C*16)+44:iy%!4=Xy%-44:$(iy%!20)=$((S%!(M%*4))+281):
  7841. U%>=P%
  7842. iy%!16=(iy%!16
  7843. (1<<21)))
  7844. iy%!16=(iy%!16
  7845. (1<<21)))
  7846. Sy(M%,U%)
  7847. (1<<21))
  7848. &400E2,,iy%:iy%!0=((&C+(S_%))+4)+(&C*16)+44+16:iy%!&C=Xy%:iy%!8=((&C+(&C*16))+4)+(&C*16)+44+16+(&C*16)+44:iy%!4=Xy%-44:$(iy%!20)=$((S%!(M%*4))+294):
  7849. U%>=P%
  7850. iy%!16=(iy%!16
  7851. (1<<21)))
  7852. iy%!16=(iy%!16
  7853. (1<<21)))
  7854. Sy(M%,U%))
  7855. (1<<21))
  7856. &400E2,,iy%:Xy%-=60:
  7857. `_(M%,U%,cO%)?(
  7858. L(U%)+
  7859. F(M%))=cO%:Z%!0=A%(7):Z%!4=(&C+(S_%))+4:Z%!8=Xy%-44:Z%!&C=((&C+(S_%))+4)+(&C*16)+44+16+(&C*16)+44:Z%!16=Xy%:
  7860. &400C9,,Z%
  7861. Sy(M%,U%)
  7862. U%=ty%
  7863. D$=((!((S%!(M%*4))+277))
  7864. (1<<8))=0
  7865. :=((?(
  7866. L(U%)+
  7867. F(M%)))
  7868. r_(M%,U%)
  7869. U%=ty%
  7870. L(U%)+
  7871. F(M%))
  7872. n(M%,U%)
  7873. U%=ty%
  7874. ny(M%):=
  7875. L(U%)+
  7876. F(M%)))/(&A^(?((S%!(M%*4))+279))))
  7877. Rl(M%,U%,`%)!(
  7878. L(U%)+
  7879. F(M%))=`%:
  7880. Py(M%,U%)
  7881. U%=ty%
  7882. L(U%)+
  7883. F(M%)))
  7884. hu(M%,U%,F)|(
  7885. L(U%)+
  7886. F(M%))=F:
  7887. bn%44:bn%!0=A%(7):bn%!4=4:
  7888. &400CE,,bn%:
  7889. &400C4,,bn%:bn%+=4:
  7890. YJ%44,Fu%44,LJ%44,`_%44,jJ%44,dJ%44,nJ%44,ou%44,Ru%44:
  7891. ln%44,ga%44:Ga%=jJ%+8:ln%!0=A%(37):ln%!4=&C:
  7892. &400CE,,ln%:ln%+=4:ga%!0=A%(37):ga%!4=&D:
  7893. &400CE,,ga%:ga%+=4:
  7894. Ai%44,Il%44,xl%44
  7895. Ai%!0=A%(26):Ai%!4=0:
  7896. &400CE,,Ai%:Ai%+=4:Ai%!0=A%(26):Il%!0=A%(26):Il%!4=1:
  7897. &400CE,,Il%:Il%+=4:Il%!0=A%(26):xl%!0=A%(26):xl%!4=2:
  7898. &400CE,,xl%:xl%+=4:xl%!0=A%(26):J%!0=A%(35):J%!4=0:
  7899. &400CE,,J%:ik%=J%!8:tJ%=J%!&C:`k%=J%!16:Su%=J%!20
  7900. KJ%44,Na%44,tl%44,u_%44:KJ%!0=A%(35):KJ%!4=1:
  7901. &400CE,,KJ%:Za%=KJ%!8:rr%=KJ%!&C:Ol%=(KJ%!16)-(KJ%!8):VZ%=(KJ%!20)-(KJ%!&C):KJ%+=4:tl%!0=A%(35):tl%!4=2:
  7902. &400CE,,tl%:`O%=tl%!8:IO%=tl%!&C:tl%+=4:u_%!0=A%(35):u_%!4=3:
  7903. &400CE,,u_%:da%=u_%!8:MZ%=u_%!&C
  7904. u_%+=8:J%!4=4:
  7905. &400CE,,J%:vB%=J%!8:yO%=J%!&C:Na%!0=A%(35):Na%!4=5:
  7906. &400CE,,Na%:ja%=Na%!8:WZ%=Na%!&C:Na%+=4:J%!4=6:
  7907. &400CE,,J%:zO%=J%!8:_O%=J%!&C:
  7908. w_%44,iy%44,bJ%44,ry%44,qy%44:w_%!0=A%(7):w_%!4=1:
  7909. &400CE,,w_%:w_%+=8:w_%!0=20:w_%!8=&C+8+(64*16)
  7910. iy%!0=A%(7):iy%!4=2:
  7911. &400CE,,iy%:iy%+=8:bJ%!0=A%(7):bJ%!4=0:
  7912. &400CE,,bJ%:bJ%+=8:ry%!0=A%(7):ry%!4=3:
  7913. &400CE,,ry%:ry%!28=wo%:ry%!36=&FF:ry%+=8:qy%!0=A%(7):qy%!4=5:
  7914. &400CE,,qy%:qy%+=4:jJ%!0=A%(21):jJ%!4=k:
  7915. &400CE,,jJ%:N`%=jJ%!8:gJ%=jJ%!&C
  7916. n`%=jJ%!16:gn%=jJ%!20:ou%!0=A%(21):ou%!4=Uy:
  7917. &400CE,,ou%:xk%=ou%!8:xo%=(ou%!&C)-gJ%:Nk%=ou%!16:Fo%=(ou%!20)-gJ%:nJ%!0=A%(21):nJ%!4=Qy:
  7918. &400CE,,nJ%:oe%=nJ%!8:Do%=(nJ%!&C)-gJ%:jk%=nJ%!16:Dk%=(nJ%!20)-gJ%:dJ%!0=A%(21):dJ%!4=Dy:
  7919. &400CE,,dJ%:go%=dJ%!8
  7920. Ik%=(dJ%!&C)-gJ%:Mk%=dJ%!16:Xo%=(dJ%!20)-gJ%:`_%!0=A%(21):`_%!4=Ly:
  7921. &400CE,,`_%:re%=`_%!8:ue%=(`_%!&C)-gJ%:io%=`_%!16:Gr%=(`_%!20)-gJ%:kn%=`_%!32:Fu%!0=A%(21):Fu%!4=cy:
  7922. &400CE,,Fu%:
  7923. B(Fu%+8,LJ%+4,36):LJ%!(16+4)=(LJ%!(16+4))
  7924. (1<<8)):se%=Fu%!8
  7925. Fk%=(Fu%!&C)-gJ%:zo%=Fu%!16:do%=(Fu%!20)-gJ%:Ru%!0=A%(21):Ru%!4=t:
  7926. &400CE,,Ru%:UO%=Ru%!8:fO%=Ru%!&C:J%!0=A%(21):J%!4=1:
  7927. &400CE,,J%:Rr%=J%!8:wr%=J%!&C:FZ%=J%!16:_r%=J%!20:J%!0=A%(21):J%!4=Fy:
  7928. &400CE,,J%:bo%=J%!8:zk%=J%!&C:Io%=J%!16:Fe%=J%!20
  7929. J%!0=A%(21):J%!4=x:
  7930. &400CE,,J%:We%=J%!8:Ho%=J%!&C:Oo%=J%!16:Ce%=J%!32:J%!0=A%(21):J%!4=f:
  7931. &400CE,,J%:ze%=J%!8:uk%=J%!&C:So%=J%!16:Je%=J%!20:J%!0=A%(36):J%!4=k:
  7932. &400CE,,J%:YO%=J%!&C:J%!0=A%(36):J%!4=1:
  7933. &400CE,,J%:Qr%=J%!&C:sk%=J%!16:Ve%=J%!20
  7934. YJ%!0=A%(36):YJ%!4=Cy:
  7935. &400CE,,YJ%:hk%=YJ%!8:po%=YJ%!&C:J%!0=A%(36):J%!4=m:
  7936. &400CE,,J%:Oe%=J%!8:fo%=J%!&C:J%!0=A%(36):J%!4=a:
  7937. &400CE,,J%:Br%=J%!8:De%=J%!&C:Yk%=J%!16:`o%=J%!20:bB%=J%!32:J%!0=A%(36):J%!4=z:
  7938. &400CE,,J%:Kr%=J%!8:Tr%=J%!&C
  7939. yo%=J%!16:Ck%=J%!20:
  7940. Du%44:Du%!0=A%(37):Du%!4=h:
  7941. &400CE,,Du%:Ke%=Du%!8:Mo%=Du%!&C:Zr%=Du%!16:Hk%=Du%!20:Du%+=4:J%!0=A%(37):J%!4=X:
  7942. &400CE,,J%:vo%=J%!8:Xr%=J%!&C:kk%=J%!16:Zk%=J%!20:J%!0=A%(37):J%!4=by:
  7943. &400CE,,J%:tk%=J%!8:ho%=J%!&C:te%=J%!16
  7944. we%=J%!20:J%!0=A%(37):J%!4=hy:
  7945. &400CE,,J%:pk%=J%!8:Go%=J%!&C:ne%=J%!16:Sr%=J%!20:J%!0=A%(37):J%!4=H:
  7946. &400CE,,J%:Kk%=J%!8:wk%=J%!&C:ce%=J%!16:J%!0=A%(37):J%!4=Q:
  7947. &400CE,,J%:nk%=J%!8:ro%=J%!&C:Wr%=J%!16:J%!0=A%(37):J%!4=G:
  7948. &400CE,,J%:Cr%=J%!8
  7949. _o%=J%!&C:Yr%=J%!16:J%!0=A%(37):J%!4=k:
  7950. &400CE,,J%:RB%=J%!&C:J%!0=A%(37):J%!4=L:
  7951. &400CE,,J%:Xk%=J%!8:fe%=J%!&C:`e%=J%!16:Ge%=J%!20:Le%=J%!28:J%!0=A%(37):J%!4=ty:
  7952. &400CE,,J%:de%=J%!8:vk%=J%!&C:to%=J%!16:Pe%=J%!20:J%!0=A%(37):J%!4=gy:
  7953. &400CE,,J%
  7954. Co%=J%!8:lk%=J%!&C:Jo%=J%!16:Ok%=J%!20:J%!0=A%(37):J%!4=R:
  7955. &400CE,,J%:Ae%=J%!8:Wo%=J%!&C:ak%=J%!16:Fr%=J%!20:J%!0=A%(37):J%!4=Y:
  7956. &400CE,,J%:Vk%=J%!8:ao%=J%!&C:Pr%=J%!16:ae%=J%!20:J%!0=A%(37):J%!4=zy:
  7957. &400CE,,J%:HB%=J%!8:rB%=J%!&C:lr%=J%!16
  7958. gr%=J%!20:ba%=J%!28:J%!0=A%(37):J%!4=Ky:
  7959. &400CE,,J%:eO%=J%!8:JO%=J%!&C:jr%=J%!16:qZ%=J%!20:Fn%=J%!28:nJ%+=4:ou%+=4:dJ%+=4:`_%+=4:Fu%+=4:YJ%+=4:jJ%+=4:Ru%+=4:J%!0=A%(&D):J%!4=6:
  7960. &400CE,,J%:si%=J%!32:!L%=A%(36):
  7961. &400C3,,L%:!L%=A%(37):
  7962. &400C3,,L%
  7963. Oy-=2:
  7964. C(A%(21),Uy):
  7965. C(A%(21),Qy):
  7966. C(A%(21),Dy):
  7967. C(A%(21),Ly):
  7968. C(A%(21),cy):
  7969. C(A%(21),k):
  7970. C(A%(21),1):
  7971. C(A%(21),t):
  7972. C(A%(21),f):
  7973. C(A%(21),&B):
  7974. C(A%(7),0):
  7975. C(A%(7),2):
  7976. C(A%(7),1):
  7977. C(A%(7),5):
  7978. C(A%(7),3):
  7979. C(A%(26),0):
  7980. C(A%(26),1):
  7981. C(A%(26),2)
  7982. C(A%(35),0):
  7983. C(A%(35),1):
  7984. C(A%(35),2):
  7985. C(A%(35),3):
  7986. C(A%(35),4):
  7987. C(A%(35),5):
  7988. C(A%(35),6):t=-2:
  7989. C(A%(21),Fy):
  7990. C(A%(21),x):Fy=&C8:L%!0=A%(21):
  7991. &400CB,,L%:uo%=((L%!16)-(L%!8))+gJ%:
  7992. C(p%,Jy%)HO%!0=p%:HO%!4=Jy%:
  7993. &400C4,,HO%:
  7994. D%)D%=
  7995. W(D%,40):$D%="Draw":D%!4=&C9:D%!8=0:$(D%+&C)="THDrwLib1.00":D%!24=&7FFFF:D%!28=&7FFFF:D%!32=0:D%!36=0:
  7996. My%,nu%,qa%,kr%,UZ%,w`%)
  7997. D%:My%=(&A*4):
  7998. w`%<>0
  7999. fHMy%+=((w`%!0)*4)+8:D%=
  8000. W(D%,My%):D%!40=0:
  8001. B(w`%,D%+44,((w`%!0)*4)+4)
  8002. W(D%,My%)
  8003. xJ(D%,2,My%,&7FFFF,&7FFFF,0,0):D%!24=qa%:D%!28=nu%:D%!32=kr%:D%!36=UZ%:=D%
  8004. R(D%,G%)D%=
  8005. W(D%,4):G%!(G%!4)=0:G%!4+=4:
  8006. K(D%,G%,X%,Y%)D%=
  8007. W(D%,&C):G%!(G%!4)=2:G%!((G%!4)+4)=X%:G%!((G%!4)+8)=Y%:G%!4+=&C:
  8008. v(G%+8,X%,Y%):
  8009. p(D%,G%)D%=
  8010. W(D%,4):G%!(G%!4)=5:G%!4+=4:
  8011. W(D%,G%,X%,Y%)D%=
  8012. W(D%,&C):G%!(G%!4)=8:G%!((G%!4)+4)=X%:G%!((G%!4)+8)=Y%:G%!4+=&C:
  8013. v(G%+8,X%,Y%):
  8014. N_(D%,G%,Nl%,bu%,`u%,Xl%)D%=
  8015. W(D%,24):G%!(G%!4)=2:G%!((G%!4)+4)=Nl%:G%!((G%!4)+8)=bu%:G%!((G%!4)+&C)=8:G%!((G%!4)+16)=`u%:G%!((G%!4)+20)=Xl%:G%!4+=24:
  8016. ty(D%,G%,Nl%,bu%,`u%,Xl%)G%!(G%!4)=2:G%!((G%!4)+4)=Nl%:G%!((G%!4)+8)=bu%:G%!((G%!4)+&C)=8:G%!((G%!4)+16)=`u%:G%!((G%!4)+20)=Xl%:G%!4+=24:
  8017. Fy(Hu%,MJ%,D_%,GJ%,a_%)Hu%!0=MJ%:Hu%!4=D_%:Hu%!8=GJ%:Hu%!&C=a_%:
  8018. K_(D%,G%,Nl%,bu%,`u%,Xl%,yk%,je%)D%=
  8019. W(D%,28):G%!(G%!4)=6:G%!((G%!4)+4)=Nl%:G%!((G%!4)+8)=bu%:G%!((G%!4)+&C)=`u%:G%!((G%!4)+16)=Xl%:G%!((G%!4)+20)=yk%:G%!((G%!4)+24)=je%:G%!4+=28:
  8020. v(G%+8,Nl%,bu%):
  8021. v(G%+8,`u%,Xl%):
  8022. v(G%+8,yk%,je%):
  8023. xJ(D%,Qe%,My%,MJ%,D_%,GJ%,a_%)D%!0=Qe%:D%!4=My%:D%!8=MJ%:D%!&C=D_%:D%!16=GJ%:D%!20=a_%:
  8024. W(D%,My%)
  8025. K(My%)
  8026. A("Mem")
  8027. :Ry%+=My%:=Ry%-My%
  8028. v(Hu%,X%,Y%)
  8029. X%<Hu%!0
  8030. Hu%!0=X%
  8031. X%>Hu%!8
  8032. Hu%!8=X%
  8033. Y%<Hu%!4
  8034. Hu%!4=Y%
  8035. Y%>Hu%!&C
  8036. Hu%!&C=Y%
  8037. My%,Z$(),U%())
  8038. r%,D%,i`%:D%=
  8039. W(D%,8):i`%=D%:My%=8:
  8040. (Z$(),1):My%+=(1+1+
  8041. (Z$(r%))+3)
  8042. 3):D%=
  8043. W(D%,(1+1+
  8044. (Z$(r%))+3)
  8045. 3)):?D%=U%(r%):$(D%+1)=Z$(r%)+
  8046. :i`%!0=0:i`%!4=My%:=i`%
  8047. My%,B$,vr%,GZ%,To%,ky$,xn%,Bn%,X%,Y%,xi%)
  8048. dy%,D%:My%=80+((
  8049. (B$)+1+3)
  8050. 3)):D%=
  8051. W(D%,My%):
  8052. &40081,,ky$,xn%*16,xn%*16,0,0
  8053. dy%:v%!0=0:v%!4=0:v%!8=0:v%!&C=0:v%!16=-1:
  8054. ND%!24=
  8055. (xi%))*(1<<16):D%!28=
  8056. (xi%))*(1<<16):D%!32=-(D%!28):D%!36=D%!24
  8057. D%!24=1<<16:D%!28=0:D%!32=0:D%!36=1<<16
  8058. :D%!40=0:D%!44=0:
  8059. &400A1,dy%,B$,864+(1<<18),&7FFFFFFF,&7FFFFFFF,v%,D%+24:
  8060. &40082,dy%:
  8061. 1:X%-=((((v%!28)-(v%!20))/400)<<8)/2:Y%-=((((v%!32)-(v%!24))/400)<<8)/2
  8062. 2:X%-=((((v%!28)-(v%!20))/400)<<8):Y%-=((((v%!32)-(v%!24))/400)<<8)
  8063. 3:X%-=((((v%!28)-(v%!20))/400)<<8)/2:Y%-=((((v%!32)-(v%!24))/400)<<8)
  8064. 4:X%-=((((v%!28)-(v%!20))/400)<<8)/2
  8065. 5:X%-=((((v%!28)-(v%!20))/400)<<8):Y%-=((((v%!32)-(v%!24))/400)<<8)/2
  8066. Y%-=(((xn%*&3E8)/400)<<8)/2
  8067. xJ(D%,&C,My%,X%,Y%,X%+((((v%!28)-(v%!20))/400)<<8),Y%+((((v%!32)-(v%!24))/400)<<8)):D%!48=1:D%!52=vr%:D%!56=GZ%:D%!60=To%:D%!64=xn%*640:D%!68=xn%*640:D%!72=X%:D%!76=Y%:$(D%+80)=B$+
  8068. (0):=D%
  8069. P(N%)=(((N%*&3E8)/400)<<8)
  8070. 1,"nearest_ten()="+
  8071. I%,q%:
  8072. I%+=1:c=c*&A:
  8073. c>=1:=&A^-I%
  8074. I%+=1:c=c/&A:
  8075. (c)<=1:=&A^I%
  8076. Iu(cZ%,A_%,W$,w$,s$,iy$,S,W,C,V,RJ,n,M$(),S%(),J$(),W%,H%,KJ,_J,aZ%,yZ%,fZ%,U,A)u=20<<8:v=20<<8:
  8077. Yl%,xZ%,al%,Ua%,yl%,ii%,wu%,Cn%:
  8078. gy%,q_%,by%,t_%,MB%,dy%,Qy%,Kl%,Ay%,Z$(),U%(),My%,r%:
  8079. VO%,Ln%,ml%,D%,P_%,Q_%,b$:P_%=W%:Q_%=H%:b$=iy$
  8080. :ml%=(A_%
  8081. 1)<>0:Ln%=(A_%
  8082. 2)<>0:Lr%=(A_%
  8083. 4)<>0:
  8084. :D%=jy%:
  8085. hJ(D%):jy%=D%:jy%!24=0:jy%!28=0:jy%!32=P_%:jy%!36=Q_%:
  8086. Z$(0),U%(0):Z$(0)=a$:U%(0)=1:G%=
  8087. jy(My%,Z$(),U%()):
  8088. w$<>""
  8089. P(20)*2
  8090. Yl%=0
  8091. s$<>""
  8092. P(20)*2
  8093. f`%=0
  8094. W$<>""
  8095. P(38)*1.3
  8096. al%=0
  8097. b$<>""
  8098. P(20)*1.3
  8099. Ua%=0
  8100. &40081,,a$,&E*16,&E*16,0,0
  8101. &400A1,dy%,
  8102. (V),1<<8,&7FFFFFFF,&7FFFFFFF
  8103. ,,,Qy%:Kl%=
  8104. P(Qy%/&3E8):
  8105. &400A1,dy%,
  8106. (W),1<<8,&7FFFFFFF,&7FFFFFFF
  8107. ,,,Qy%:Qy%=
  8108. P(Qy%/&3E8):
  8109. &40082,dy%:
  8110. Qy%>Kl%
  8111. MB%=&4B0+Qy%
  8112. MB%=&4B0+Kl%
  8113. MB%=0
  8114. &40081,,a$,16*16,16*16,0,0
  8115. dy%:ii%=
  8116. (M$(),1)+1)*16))+(
  8117. (M$(),1)*256*&C):Qy%=0:
  8118. Ay%=0
  8119. (M$(),1):
  8120. &400A1,dy%,M$(Ay%),1<<8,&7FFFFFFF,&7FFFFFFF
  8121. ,,,Kl%:
  8122. Kl%>Qy%
  8123. Qy%=Kl%
  8124. :yl%=
  8125. P(Qy%/&3E8)+(&80*256)+(32*256):
  8126. &40082,dy%:wu%=P_%-u-yl%:Cn%=(Q_%/2)-(ii%/2):
  8127. YJ(D%,jy%,wu%,Cn%,M$(),S%())
  8128. yl%=0
  8129. :gy%=u+f`%+MB%:by%=P_%-(2*u)-yl%:
  8130. &40081,,a$,&E*16,&E*16,0,0
  8131. uni%=0:In%=0:jn%=(by%-gy%)/
  8132. (J$(),1):
  8133. (J$(),1):
  8134. &400A1,dy%,J$(r%),1<<8,&7FFFFFFF,&7FFFFFFF
  8135. ,,,VO%:
  8136. VO%>In%
  8137. In%=VO%
  8138. :ni%=
  8139. ((In%^2)/2):
  8140. P(In%/&3E8)<jn%
  8141. P(&E):un%=
  8142. :ni%=
  8143. P(ni%/&3E8)
  8144. :yi%=0:pa%=by%-gy%
  8145. P(&E):un%=
  8146. yi%=+1
  8147. yi%=-1
  8148. :pa%=by%-gy%-&2EE0
  8149. :yi%=0:pa%=by%-gy%
  8150. d(C-S)/&A:jn%=pa%/((C-S)/A):N=S:
  8151. &400A1,dy%,
  8152. (N),1<<8,&7FFFFFFF,&7FFFFFFF
  8153. ,,,Qy%:
  8154. Qy%>=jn%
  8155. *N=S:A+=(
  8156. d(C-S)/&64):jn%=pa%/((C-S)/A)
  8157. (N>C)
  8158. A>0.5
  8159. (A+0.5)
  8160. d(A):A=
  8161. (A/l)*l
  8162. My(S,U,A):C=
  8163. W_(C,U,A)
  8164. &40082,dy%:
  8165. q_%=v+Yl%+ni%
  8166. q_%=v+Yl%
  8167. :t_%=Q_%-v-al%-Ua%:
  8168. #Wk%=
  8169. :j`%=(t_%-q_%)-&2EE0:
  8170. el%=+1
  8171. el%=-1
  8172. :el%=0:j`%=t_%-q_%
  8173. :co%=
  8174. P(&E)*2:e=(V-W)/(j`%
  8175. co%):
  8176. e>0.5
  8177. (e+0.5):
  8178. ((V-W)
  8179. V=(((V+e)
  8180. e)*e)+(W
  8181. d(e):e=
  8182. (e/l)*l
  8183. Yu(gy%,q_%,by%,t_%,W$,w$,s$,b$,P_%,Q_%,al%):T=pa%/(C-S):
  8184. yi%<0
  8185. Uy%=gy%+&2EE0:Uy%-=S*T
  8186. Uy%=gy%:Uy%-=S*T
  8187. :D=j`%/(V-W):
  8188. el%<0
  8189. h%=q_%+&2EE0:h%-=W*D
  8190. h%=q_%:h%-=W*D
  8191. cJ(D%,gy%,by%,d,D,h%,C-1,0,el%,Sn%):
  8192. Zu(D%,gy%,by%,d,D,h%,J$(),un%,Ln%)
  8193. cJ(D%,gy%,by%,d,D,h%,(C-S)/A,yi%,el%,Sn%):
  8194. Ia(D%,gy%,by%,d,D,h%,S,C,A,yi%)
  8195. ll(D%,q_%,t_%,n,T,Uy%,W,V,e,((V-W)/e)+1E-7,el%):
  8196. Yu(gy%,q_%,by%,t_%,W$,w$,s$,b$,P_%,Q_%,al%)
  8197. G%,My%:
  8198. W$<>""
  8199. N(My%,W$,0,-256,1,Z$(0),38,3,(P_%/2),Q_%-v,0)
  8200. b$<>""
  8201. N(My%,b$,0,-256,1,Z$(0),20,3,(P_%/2),(Q_%-al%-v),0)
  8202. w$<>""
  8203. N(My%,w$,0,-256,1,Z$(0),20,3,((by%-gy%)/2),v+Yl%-
  8204. P(20),0)
  8205. s$<>""
  8206. N(My%,s$,0,-256,1,Z$(0),20,4,u+f`%-
  8207. P(20),((t_%-q_%)/2),90)
  8208. cJ(D%,gy%,by%,d,D,h%,Mr%,la%,el%,
  8209. G%,My%,o_%,i_%,X%:
  8210. el%=0
  8211. h%=(d*D)+h%
  8212. el%<0
  8213. h%=q_%
  8214. h%=t_%
  8215. :Sn%=h%:My%=0:G%=
  8216. B(My%,0,-1,400,60+1,0):
  8217. K(0,G%,gy%,h%):
  8218. la%<0
  8219. W(0,G%,gy%+(&2EE0/4),h%):
  8220. W(0,G%,gy%+(&2EE0/2),h%+(&2EE0/4)):
  8221. W(0,G%,gy%+(&2EE0/2),h%-(&2EE0/4)):
  8222. W(0,G%,gy%+(&2EE0*0.75),h%):
  8223. W(0,G%,by%,h%):o_%=gy%+&2EE0:i_%=by%
  8224. la%=0
  8225. W(0,G%,by%,h%):o_%=gy%:i_%=by%
  8226. W(0,G%,by%-(&2EE0*0.75),h%):
  8227. W(0,G%,by%-(&2EE0/2),h%+(&2EE0/4)):
  8228. W(0,G%,by%-(&2EE0/2),h%-(&2EE0/4)):
  8229. W(0,G%,by%-(&2EE0/4),h%):
  8230. W(0,G%,by%,h%):o_%=gy%:i_%=by%-&2EE0
  8231. R(0,G%):
  8232. X%=o_%
  8233. ((i_%-o_%)
  8234. Mr%):G%=
  8235. B(My%,0,-1,&64,0+1,0):
  8236. N_(0,G%,X%,h%,X%,h%-&4B0):
  8237. Fy(G%+8,X%,h%-&4B0,X%,Y%):
  8238. R(0,G%):
  8239. Zu(D%,gy%,by%,d,D,h%,J$(),un%,zZ%)
  8240. G%,My%,X%,r%,Bn%,xi%,q%:h%=(d*D)+h%:
  8241. h%<q_%
  8242. h%=q_%
  8243. *q%=((by%-gy%)
  8244. (J$(),1)+1)):gy%+=q%/2
  8245. q%=(by%-gy%)
  8246. (J$(),1)
  8247. dBn%=4:xi%=0:
  8248. X%=gy%
  8249. q%:G%=
  8250. N(My%,J$(r%),0,-256,1,Z$(0),&E,Bn%,X%,h%-&898-
  8251. P(&E),xi%):r%+=1:
  8252. Bn%=2:xi%=45:
  8253. X%=gy%
  8254. q%:G%=
  8255. N(My%,J$(r%),0,-256,1,Z$(0),&E,Bn%,X%+
  8256. P(&E),h%-&898,xi%):r%+=1:
  8257. Ia(D%,gy%,by%,d,D,h%,S,C,A,la%)
  8258. G%,My%,X%,F:h%=(d*D)+h%:
  8259. h%<q_%
  8260. h%=q_%
  8261. h%>t_%
  8262. h%=t_%
  8263. la%<0
  8264. o_%=gy%+&2EE0:i_%=by%
  8265. la%=0
  8266. o_%=gy%:i_%=by%
  8267. o_%=gy%:i_%=by%-&2EE0
  8268. =o_%+=((i_%-o_%)
  8269. ((C-S)/A))/2:i_%+=((i_%-o_%)
  8270. ((C-S)/A))/2
  8271. :F=S:
  8272. X%=o_%
  8273. (i_%-o_%)
  8274. ((C-S)/A):G%=
  8275. N(My%,
  8276. F,0,-256,1,Z$(0),&E,3,X%,h%-&898,0):F+=A:
  8277. ll(D%,q_%,t_%,n,T,Uy%,W,V,A,Mr%,la%)
  8278. G%,My%,o_%,i_%,Y%,F,@%,dO%,oy:oy=A:
  8279. oy<1:oy=oy*&A:dO%+=1:
  8280. @%="+F."+
  8281. (dO%)
  8282. Uy%=(n*T)+Uy%:
  8283. Uy%<gy%
  8284. Uy%=gy%
  8285. Uy%>by%
  8286. Uy%=by%
  8287. :My%=0:G%=
  8288. B(My%,0,-1,400,60+1,0):
  8289. K(0,G%,Uy%,q_%):
  8290. la%<0
  8291. W(0,G%,Uy%,q_%+(&2EE0/4)):
  8292. W(0,G%,Uy%+(&2EE0/4),q_%+(&2EE0/2)):
  8293. W(0,G%,Uy%-(&2EE0/4),q_%+(&2EE0/2)):
  8294. W(0,G%,Uy%,q_%+(&2EE0*0.75)):
  8295. W(0,G%,Uy%,t_%):o_%=q_%+&2EE0:i_%=t_%
  8296. la%=0
  8297. W(0,G%,Uy%,t_%):o_%=q_%:i_%=t_%
  8298. W(0,G%,Uy%,t_%-(&2EE0*0.75)):
  8299. W(0,G%,Uy%+(&2EE0/4),t_%-(&2EE0/2)):
  8300. W(0,G%,Uy%-(&2EE0/4),t_%-(&2EE0/2)):
  8301. W(0,G%,Uy%,t_%-(&2EE0/4)):
  8302. W(0,G%,Uy%,t_%):o_%=q_%:i_%=t_%-&2EE0
  8303. R(0,G%):F=W:
  8304. Y%=o_%
  8305. ((i_%-o_%)
  8306. Mr%):G%=
  8307. B(My%,0,-1,&64,0+1,0):
  8308. N_(0,G%,Uy%,Y%,Uy%-&4B0,Y%):
  8309. Fy(G%+8,Uy%-&4B0,Y%,Uy%,Y%):
  8310. R(0,G%):G%=
  8311. N(My%,
  8312. (F),0,-256,1,a$,&E,5,Uy%-&898,Y%,0):F+=A:
  8313. gJ(D%,Uy%,h%,T,D,Iy,IJ,Vl%,nu%,qa%)
  8314. X%,Y%:X%=Uy%+(Iy*T):Y%=h%+(IJ*D):
  8315. NJ(D%,X%,Y%,Vl%,nu%,qa%):
  8316. NJ(D%,X%,Y%,Vl%,nu%,qa%)
  8317. Vl%<>0
  8318. G%,My%:G%=
  8319. B(My%,nu%,qa%,0,0,0):
  8320. K(0,G%,X%-&708,Y%+&708):
  8321. W(0,G%,X%+&708,Y%+&708):
  8322. W(0,G%,X%+&708,Y%-&708):
  8323. W(0,G%,X%-&708,Y%-&708):
  8324. W(0,G%,X%-&708,Y%+&708):
  8325. p(0,G%)
  8326. K(0,G%,X%-&708,Y%-&708):
  8327. W(0,G%,X%,Y%+&708):
  8328. W(0,G%,X%+&708,Y%-&708):
  8329. W(0,G%,X%-&708,Y%-&708):
  8330. p(0,G%)
  8331. K(0,G%,X%,Y%+&708):
  8332. W(0,G%,X%+&708,Y%):
  8333. W(0,G%,X%,Y%-&708):
  8334. W(0,G%,X%-&708,Y%):
  8335. W(0,G%,X%,Y%+&708):
  8336. p(0,G%)
  8337. K(0,G%,X%,Y%+&708):
  8338. W(0,G%,X%,Y%-&708):
  8339. K(0,G%,X%-&708,Y%):
  8340. W(0,G%,X%+&708,Y%)
  8341. K(0,G%,X%-&708,Y%+&708):
  8342. W(0,G%,X%+&708,Y%-&708):
  8343. K(0,G%,X%-&708,Y%-&708):
  8344. W(0,G%,X%+&708,Y%+&708)
  8345. K(0,G%,X%,Y%+&708):
  8346. K_(0,G%,X%+(&708*1.25),Y%+&708,X%+(&708*1.25),Y%-&708,X%,Y%-&708):
  8347. K_(0,G%,X%-(&708*1.25),Y%-&708,X%-(&708*1.25),Y%+&708,X%,Y%+&708):
  8348. p(0,G%)
  8349. R(0,G%)
  8350. f_(D%,Uy%,h%,T,D,Ry,p,Ty,My,Vl%,nu%,qa%)
  8351. (p=0)
  8352. ((h%+(p*D))<>Sn%)
  8353. %p=Sn%:My=h%+(My*D):
  8354. Ty<Ry
  8355. Ry,Ty
  8356. Q_(D%,Uy%+(Ry*T),p,Uy%+(Ty*T),My,Vl%,nu%,qa%)
  8357. Ty<Ry
  8358. Ry,Ty
  8359. Q_(D%,Uy%+(Ry*T),h%+(p*D),Uy%+(Ty*T),h%+(My*D),Vl%,nu%,qa%)
  8360. Q_(D%,MJ%,D_%,GJ%,a_%,Vl%,nu%,qa%)
  8361. X%,Y%,G%,My%:
  8362. D_%>=a_%
  8363. B(My%,nu%,qa%,0,0,0):
  8364. N_(0,G%,MJ%,D_%,MJ%,a_%):
  8365. W(0,G%,GJ%,a_%):
  8366. W(0,G%,GJ%,D_%):
  8367. W(0,G%,MJ%,D_%):
  8368. p(0,G%):
  8369. R(0,G%):
  8370. Zl%,Nl%,bu%,`u%,Xl%,D%:G%=
  8371. B(My%,nu%,-1,0,0,0):Zl%=GJ%-MJ%:D%=
  8372. W(D%,24*((a_%-D_%+Zl%)
  8373. &DAC)):
  8374. Y%=a_%-&DAC
  8375. D_%-Zl%
  8376. -&DAC:
  8377. Y%+Zl%>a_%
  8378. `u%=a_%-Y%+MJ%:Xl%=a_%
  8379. `u%=GJ%:Xl%=Y%+Zl%
  8380. Y%<D_%
  8381. Nl%=D_%-Y%+MJ%:bu%=D_%
  8382. Nl%=MJ%:bu%=Y%
  8383. ty(D%,G%,Nl%,bu%,`u%,Xl%):
  8384. R(0,G%):
  8385. Fy(G%+8,MJ%,D_%,GJ%,a_%)
  8386. Zl%,Nl%,bu%,`u%,Xl%,D%:G%=
  8387. B(My%,nu%,-1,0,0,0):Zl%=GJ%-MJ%:D%=
  8388. W(D%,24*((a_%-D_%+Zl%)
  8389. &DAC)):
  8390. Y%=a_%-&DAC
  8391. D_%-Zl%
  8392. -&DAC:
  8393. Y%+Zl%>a_%
  8394. `u%=GJ%-(a_%-Y%):Xl%=a_%
  8395. `u%=MJ%:Xl%=Y%+Zl%
  8396. Y%<D_%
  8397. Nl%=GJ%-(D_%-Y%):bu%=D_%
  8398. Nl%=GJ%:bu%=Y%
  8399. ty(D%,G%,Nl%,bu%,`u%,Xl%):
  8400. R(0,G%):
  8401. Fy(G%+8,MJ%,D_%,GJ%,a_%)
  8402. B(My%,nu%,-1,0,0,0):D%=
  8403. W(D%,24*(((a_%-D_%)
  8404. &DAC)+1)):
  8405. Y%=D_%
  8406. &DAC:
  8407. ty(D%,G%,MJ%,Y%,GJ%,Y%):
  8408. R(0,G%):
  8409. Fy(G%+8,MJ%,D_%,GJ%,a_%)
  8410. B(My%,nu%,-1,0,0,0):D%=
  8411. W(D%,24*(((GJ%-MJ%)
  8412. &DAC)+1)):
  8413. X%=MJ%
  8414. &DAC:
  8415. ty(D%,G%,X%,D_%,X%,a_%):
  8416. R(0,G%):
  8417. Fy(G%+8,MJ%,D_%,GJ%,a_%)
  8418. YJ(D%,jy%,wu%,Cn%,M$(),S%())
  8419. Y%,N%,G%,My%:Y%=Cn%:
  8420. S%(N%,0)
  8421. (3<<30)
  8422. (M$(),1):
  8423. S%(N%,0)
  8424. (1<<30)
  8425. >[G%=
  8426. B(My%,S%(N%,1),S%(N%,2),400,0,0):
  8427. K(0,G%,wu%,Y%):
  8428. W(0,G%,wu%+(&80*256),Y%):
  8429. R(0,G%)
  8430. S%(N%,0)
  8431. (2<<30)
  8432. NJ(D%,wu%+(64*256),Y%,S%(N%,0)
  8433. &FF,S%(N%,1),S%(N%,2))
  8434. N(My%,M$(N%),0,-256,1,Z$(0),&E,0,wu%+(&80*256)+(32*256),Y%,0):Y%+=ii%/(
  8435. (M$(),1)+1):
  8436. (M$(),1):
  8437. Q_(D%,wu%,Y%-(
  8438. P(&E)/2),wu%+(&80*256),Y%+(
  8439. P(&E)/2),S%(N%,0)
  8440. &FF,S%(N%,1),S%(N%,2)):G%=
  8441. N(My%,M$(N%),0,-256,1,Z$(0),&E,0,wu%+(&80*256)+(32*256),Y%,0):Y%+=ii%/(
  8442. (M$(),1)+1):
  8443. k(e_,XJ)
  8444. me%:me%=e_/XJ:e_-=(me%*XJ):=e_
  8445. My(`y,U,A)
  8446. ly:ly=`y-
  8447. k(`y-U,A):
  8448. ly>`y
  8449. F    ly-=A
  8450. W_(_y,U,A)
  8451. k(_y-U,A)
  8452. I iy=_y+(A-
  8453. k(_y-U,A)):
  8454. iy<_y
  8455. J    iy+=A
  8456. Xi(D%,
  8457. G%,aJ%,qJ%,PB%,g,FJ)
  8458. xi%:j=FJ-g:
  8459. j>&B4
  8460. j>270
  8461. zy(D%,G%,aJ%,qJ%,PB%,g,g+90):g+=90
  8462. zy(D%,G%,aJ%,qJ%,PB%,g,g+90):g+=90
  8463. zy(D%,G%,aJ%,qJ%,PB%,g,g+90):g+=90
  8464. zy(D%,G%,aJ%,qJ%,PB%,g,FJ):
  8465. zy(D%,
  8466. G%,aJ%,qJ%,K,b,o)
  8467. ry,Z_,my,Q_,y_,ZJ,OJ,`_,CJ:my=
  8468. (b)*K:Z_=
  8469. (90-b)*K:Q_=
  8470. (90-o)*K:y_=
  8471. (-o)*K:ry=(K/1.8)*((o-b)/90):ZJ=
  8472. (b)*ry:MJ=
  8473. (b)*ry:`_=
  8474. (o)*ry:CJ=
  8475. (o)*ry
  8476. K_(D%,G%,(Z_+ZJ+aJ%)*256,(my-MJ+qJ%)*256,(Q_-`_+aJ%)*256,(y_+CJ+qJ%)*256,(Q_+aJ%)*256,(y_+qJ%)*256):
  8477. My%,aJ%,qJ%,K,b,o,fB%,tB%)
  8478. G%:G%=
  8479. B(My%,fB%,tB%,0,0,0):
  8480. K(0,G%,aJ%<<8,qJ%<<8):my=
  8481. (b)*K:Z_=
  8482. (90-b)*K:
  8483. W(0,G%,(Z_+aJ%)*256,(my+qJ%)*256):
  8484. Xi(0,G%,aJ%,qJ%,K,b,o):
  8485. W(0,G%,aJ%*256,qJ%*256):
  8486. p(0,G%):
  8487. R(0,G%):=G%
  8488. My%,jy%,aJ%,qJ%,K,A(),s%,A_%,X%(),W$,Yl%,_)
  8489. G%,Rn%,b,o:
  8490. Rn%=0
  8491. (M$(),1):
  8492. A(s%,Rn%,1)>0
  8493. XOo=b+((A(s%,Rn%,1)/_)*360):G%=
  8494. j_(My%,aJ%,qJ%,K,b,o,X%(Rn%,1),X%(Rn%,2)):b=o
  8495. v(jy%+24,(aJ%-K)*256,(qJ%-K)*256):
  8496. v(jy%+24,(aJ%+K)*256,(qJ%+K)*256):G%=
  8497. N(My%,W$,0,-256,1,Z$(0),20,3,aJ%*256,((qJ%+K)*256)+(Yl%/1.2),0):
  8498. v(jy%+24,G%!8,G%!&C):
  8499. v(jy%+24,G%!16,G%!20):=G%
  8500. Lu(M$(),
  8501. Qy%,Kl%,Ay%:
  8502. &40081,,a$,16*16,16*16,0,0
  8503. dy%:ii%=
  8504. (M$(),1)+1)*16))+(
  8505. (M$(),1)*256*&C):Qy%=0:
  8506. Ay%=0
  8507. (M$(),1):
  8508. &400A1,dy%,M$(Ay%),1<<8,&7FFFFFFF,&7FFFFFFF
  8509. ,,,Kl%:
  8510. Kl%>Qy%
  8511. Qy%=Kl%
  8512. :yl%=
  8513. P(Qy%/&3E8)+(&80*256)+(32*256):
  8514. &40082,dy%:
  8515. jy%,A_%,W$,A_$,P_%,Q_%,A(),M$(),X%(),G$(),vy,kJ%)
  8516. G%,gu%,lJ%,K,Qy%,eu%,yl%,ii%,s%,X%,Y%,_,a_,My%,Z$(),U%(),D%:u=20<<8:v=20<<8:D%=jy%:
  8517. hJ(D%):jy%=D%:jy%!24=0:jy%!28=0:jy%!32=P_%:jy%!36=Q_%:
  8518. Z$(0),U%(0):Z$(0)=a$:U%(0)=1:G%=
  8519. jy(My%,Z$(),U%())
  8520. ^(Qy%=P_%-(2*u):eu%=Q_%-(2*v):
  8521. W$<>""
  8522. _Dal%=
  8523. P(38)*1.3:G%=
  8524. N(My%,W$,0,-256,1,Z$(0),38,3,(P_%/2),Q_%-v,0)
  8525. al%=0
  8526. b$<>""
  8527. bJUa%=
  8528. P(20)*1.3:G%=
  8529. N(My%,b$,0,-256,1,Z$(0),20,3,(P_%/2),(Q_%-al%-v),0)
  8530. Ua%=0
  8531. :eu%-=al%+Ua%:Yl%=
  8532. P(20)*1.4:
  8533. 4)<>0
  8534. Lu(M$(),ii%,yl%):wu%=P_%-yl%-u:Cn%=(Q_%/2)-(ii%/2):
  8535. YJ(D%,jy%,wu%,Cn%,M$(),X%()):Qy%-=yl%+u
  8536. Qy%>=eu%
  8537. K=eu%/2
  8538. K=Qy%/2
  8539. K-=256:gu%=eu%/((K*2)+Yl%):lJ%=Qy%/(K*2):
  8540. (gu%*lJ%)>=(kJ%+1)
  8541. K<=256:
  8542. (gu%*lJ%)<(kJ%+1)
  8543. P,"Cannot fit pie charts"
  8544. kJ%:_=0:
  8545. (A(),2):_+=A(s%,I%,1):
  8546. :QJ=(
  8547. ((K^2)*(vy/a_))):d_=(Qy%/lJ%)/2:l_=(eu%/gu%)/2:
  8548. kJ%:X%=((s%
  8549. lJ%)*(d_*2))+d_:Y%=((s%
  8550. lJ%)*(l_*2))+l_:_=0:
  8551. (A(),2):_+=A(s%,I%,1):
  8552. o_(My%,jy%,(X%+u)/256,(Y%+v)/256,(
  8553. ((QJ^2)*(_/vy)))/256,A(),s%,A_%,X%(),G$(s%),Yl%,_):
  8554.